VB打印属性设置.doc

Printer.Orientation=vbPRORLandscape加上这行就可以把打印的方向改变把纸高当成纸宽横向打印,我用过的,没问题.下面另有一些资料可参考.Printer对象常数打印机颜色模式常数值描述vbPRCMMonochrome1单色输出vbPRCMColor2彩色输出双面打印常数值描述vbPRDPSimplex1单面打印vbPRDPHorizontal2双面水平打印vbPRDPVertical3双面垂直打印打印方向常数值描述vbPRORPortrait1文档打印以纸的窄边作顶部vbPRORLandscape2文档打印以纸的宽边作顶部打印质量常数值描述vbPRPQDraft-1草稿打印质量vbPRPQLow-2低级打印质量vbPRPQMedium-3中等打印质量vbPRPQHigh-4高级打印质量PaperBin属性常数值描述vbPRBNUpper1从上层纸盒进纸vbPRBNLower2从下层纸盒进纸vbPRBNMiddle3从中间纸盒进纸vbPRBNManual4等待手动插入每页纸vbPRBNEnvelope5从信封进纸器进纸vbPRBNEnvManual6从信封进纸器进纸；但要等待手动插入vbPRBNAuto7（缺省方式）从当前缺省纸盒进纸vbPRBNTractor8从拖拉进纸器供纸vbPRBNSmallFmt9从小型进纸器进纸vbPRBNLargeFmt10从大型纸盒进纸vbPRBNLargeCapacity11从大容量进纸器进纸vbPRBNCassette14从附加的卡式纸盒进纸PaperSize属性常数值描述vbPRPSLetter1信笺，81/2x11英寸vbPRPSLetterSmall2+A611小型信笺，81/2x11英寸vbPRPSTabloid3小型报，11x17英寸vbPRPSLedger4分类帐，17x11英寸vbPRPSLegal5法律文件，81/2x14英寸vbPRPSStatement6声明书，51/2x81/2英寸vbPRPSExecutive7行政文件，71/2x101/2英寸vbPRPSA38A3,297x420mmvbPRPSA49A4,210x297mmvbPRPSA4Small10A4小号，210x297mmvbPRPSA511A5,148x210mmvbPRPSB412B4,250x354mmvbPRPSB513B5,182x257mmvbPRPSFolio14对开本，81/2x13英寸vbPRPSQuarto15四开本，215x275mmvbPRPS1&H141610x14英寸vbPRPS11x171711x17英寸vbPRPSNote18便条，81/2x11英寸vbPRPSEnv919#9信封，37/8x87/8英寸vbPRPSEnv1020#10信封，41/8x91/2英寸vbPRPSEnv1121#11信封，41/2x103/8英寸vbPRPSEnv1222#12信封，41/2x11英寸vbPRPSEnv1423#14信封，5x111/2英寸vbPRPSCSheet24C尺寸工作单vbPRPSDSheet25D尺寸工作单vbPRPSESheet26E尺寸工作单vbPRPSEnvDL27DL型信封，110x220mmvbPRPSEnvC329C3型信封，324x458mmvbPRPSEnvC430C4型信封，229x324mmvbPRPSEnvC528C5型信封，162x229mmvbPRPSEnvC631C6型信封，114x162mmvbPRPSEnvC6532C65型信封，114x229mmvbPRPSEnvB433B4型信封，250x353mmvbPRPSEnvB534B5型信封，176x250mmvbPRPSEnvB635B6型信封，176x125mmvbPRPSEnvItaly36信封，110x230mmvbPRPSEnvMonarch37信封大王，37/8x71/2英寸vbPRPSEnvPersonal38信封，35/8x61/2英寸vbPRPSFanfoldUS39U.S.标准复写簿，147/8x11英寸vbPRPSFanfoldStdGerman40德国标准复写簿，81/2x12英寸vbPRPSFanfoldLglGerman41德国法律复写簿，81/2x13英寸vbPRPSUser256用户定义Printer.Orientation = vbPRORLandscapeme.P