Question

高分求一段VB6.0的打印代码

目的：打印指定内容到 10cm × 6cm 的纸张上。（例如打印“hello world” 这样一句话）
要求：1.系统：win xp ，普通打印机
2.无论什么方法，模板也好，设置自定义纸张也行，达到目的为止
3.注释详细是最好了。
小弟不胜感激，要多少分您说了算，这100算定金。
注意，纸张要设置成10cm × 6cm 大小

Answer 1

示例代码如下：
Printer.ScaleMode = vbMillimeters '单位为毫米
Printer.Width = 100
Printer.Height = 60
'Printer.PaperSize = 1
Printer.Print "hello world!"
Printer.EndDoc
说明：
Printer.Width = 100 设置纸的宽度Printer.Height = 60设置纸的高度，你可以修改成合适的值。
Printer.PaperSize = 1可以设置预定义的标准纸张。含义如下表：
常量 值 纸张
vbPRPSLetter 1 Letter, 8 1/2 x 11 in.
vbPRPSLetterSmall 2 Letter Small, 8 1/2 x 11 in.
vbPRPSTabloid 3 Tabloid, 11 x 17 in.
vbPRPSLedger 4 Ledger, 17 x 11 in.
vbPRPSLegal 5 Legal, 8 1/2 x 14 in.
vbPRPSStatement 6 Statement, 5 1/2 x 8 1/2 in.
vbPRPSExecutive 7 Executive, 7 1/2 x 10 1/2 in.
vbPRPSA3 8 A3, 297 x 420 mm
vbPRPSA4 9 A4, 210 x 297 mm
vbPRPSA4Small 10 A4 Small, 210 x 297 mm
vbPRPSA5 11 A5, 148 x 210 mm
vbPRPSB4 12 B4, 250 x 354 mm
vbPRPSB5 13 B5, 182 x 257 mm
vbPRPSFolio 14 Folio, 8 1/2 x 13 in.
vbPRPSQuarto 15 Quarto, 215 x 275 mm
vbPRPS10x14 16 10 x 14 in.
vbPRPS11x17 17 11 x 17 in.
vbPRPSNote 18 Note, 8 1/2 x 11 in.
vbPRPSEnv9 19 Envelope #9, 3 7/8 x 8 7/8 in.
vbPRPSEnv10 20 Envelope #10, 4 1/8 x 9 1/2 in.
vbPRPSEnv11 21 Envelope #11, 4 1/2 x 10 3/8 in.
vbPRPSEnv12 22 Envelope #12, 4 1/2 x 11 in.
vbPRPSEnv14 23 Envelope #14, 5 x 11 1/2 in.
vbPRPSCSheet 24 C size sheet
vbPRPSDSheet 25 D size sheet
vbPRPSESheet 26 E size sheet
vbPRPSEnvDL 27 Envelope DL, 110 x 220 mm
vbPRPSEnvC3 29 Envelope C3, 324 x 458 mm
vbPRPSEnvC4 30 Envelope C4, 229 x 324 mm
vbPRPSEnvC5 28 Envelope C5, 162 x 229 mm
vbPRPSEnvC6 31 Envelope C6, 114 x 162 mm
vbPRPSEnvC65 32 Envelope C65, 114 x 229 mm
vbPRPSEnvB4 33 Envelope B4, 250 x 353 mm
vbPRPSEnvB5 34 Envelope B5, 176 x 250 mm
vbPRPSEnvB6 35 Envelope B6, 176 x 125 mm
vbPRPSEnvItaly 36 Envelope, 110 x 230 mm
vbPRPSEnvMonarch 37 Envelope Monarch, 3 7/8 x 7 1/2 in.
vbPRPSEnvPersonal 38 Envelope, 3 5/8 x 6 1/2 in.
vbPRPSFanfoldUS 39 U.S. Standard Fanfold, 14 7/8 x 11 in.
vbPRPSFanfoldStdGerman 40 German Standard Fanfold, 8 1/2 x 12 in.
vbPRPSFanfoldLglGerman 41 German Legal Fanfold, 8 1/2 x 13 in.
以下两行用于打印：
Printer.Print "hello world!"
Printer.EndDoc

Answer 2

Private Sub Form_Load()
Printer.PaperSize = vbPRPSUser
Printer.ScaleMode = vbInches
Printer.Height = 10 * 567
Printer.Width = 6 * 567
Printer.Print "Hello World"
Printer.EndDoc
End Sub

Answer 3

Private Sub Command1_Click()
' 10cm × 6cm
Printer.ScaleMode = vbMillimeters '单位为毫米
Printer.PaperSize = vbPRPSUser '先定义为vbPRPSUser(自定义纸张大小)
Printer.Width = 100 '单位为毫米
Printer.Height = 60 '单位为毫米
'***************************************
'注，如果纸张大小不变的话，直接在开始菜单-打印机和传真中为指定打印机添加
'一个10cm × 6cm的自定义纸张类型并设为使用，上面的代码就可以省略了
'***************************************
Printer.Print "hello"
Printer.EndDoc '结束打印
End Sub

追问

你这代码在XP上面不能得到想要的结果
98上还可以。

Answer 4

Private Sub Command1_Click()
Printer.Orientation = 1
Printer.ScaleMode = 7
Printer.Height = 10
Printer.Width = 6
Printer.ScaleLeft = -0.75 * 1440
Printer.ScaleTop = -0.75 * 1440
Printer.Print "Hello World"
Printer.EndDoc
Printer.killDoc
End Sub