vb打印问题,请高手帮忙看下我的代码问题出在哪里,按下打印,打印机不工作

显示全部楼层 · 2011-3-30 04:36:28

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()

Dim dy
Dim a, b As Integer
On Error GoTo 1

a = 1800
b = 650
Printer.ScaleMode = 6
Printer.Height = 1800
Printer.Width = 2500
Printer.Font = \"黑体\"
Printer.FontSize = 10
Printer.CurrentX = 80 a
Printer.CurrentY = b - 20
Printer.Print Text1.Text
Printer.CurrentX = 300 a
Printer.CurrentY = b - 20
Printer.Print Text2.Text
Printer.FontSize = 18
Printer.CurrentX = a - 50
Printer.CurrentY = 150 b
Printer.Print Text3.Text
Printer.CurrentX = a - 50
Printer.CurrentY = 270 b
Printer.Print Text4.Text
Printer.CurrentX = a - 50
Printer.CurrentY = 400 b
Printer.Print Text5.Text
Printer.CurrentX = a - 50
Printer.CurrentY = 530 b
Printer.Print Text6.Text
Printer.FontSize = 10
Printer.CurrentX = 250 - a
Printer.CurrentY = 630 b
Printer.Print Text7.Text
Printer.CurrentX = 100 - a
Printer.CurrentY = 630 b
Printer.Print Text8.Text
Printer.CurrentX = 20 a
Printer.CurrentY = 630 b
Printer.Print Text9.Text
Printer.CurrentX = 160 a
Printer.CurrentY = 630 b
Printer.Print Text10.Text
Printer.CurrentX = 320 a
Printer.CurrentY = 630 b
Printer.Print Text11.Text
Printer.CurrentX = 430 a
Printer.CurrentY = 630 b
Printer.Print Text12.Text
Printer.CurrentX = a
Printer.CurrentY = 870 b
Printer.Print Text13.Text
Printer.CurrentX = 130 a
Printer.CurrentY = 870 b
Printer.Print Text14.Text
Printer.CurrentX = 300 a
Printer.CurrentY = 870 b
Printer.Print Text15.Text
Printer.EndDoc

千问 · 2011-3-30 04:36:28

<pre id=\"best-answer-content\" class=\"reply-text mb10\">测试了没问题请确保有添加控件有15个textbox
还有On Error GoTo 1 这个1的标签也要写上确保没引发错误跳转到1标签