关于VB 打印
我想打印四个textbox里面的文字，能准确的打印，我怎么这个屏幕坐标就对不齐呢，打印出来，文字都是乱排的。LABEL控件和TEXTBOX控件的文字打印出来怎么对齐，能不能直接打印它所在的屏幕位置，不用找它的坐标？
Private Sub Command1_Click()
Printer.FontName = "黑体"
Printer.FontSize = 18
Printer.ScaleMode = vbTwips
Printer.Zoom = 100
Printer.CurrentX = 1800
Printer.CurrentY = 1560
Printer.Print Label1.Caption
Printer.CurrentX = 2640
Printer.CurrentY = 1440
Printer.Print Text1.Text
Printer.CurrentX = 3720
Printer.CurrentY = 1560
Printer.Print Label2.Caption
Printer.CurrentX = 3720
Printer.CurrentY = 2280
Printer.Print Label3.Caption
Printer.CurrentX = 1800
Printer.CurrentY = 2880
Printer.Print Label4.Caption
Printer.CurrentX = 2400
Printer.CurrentY = 2805
Printer.Print Text3.Text
Printer.CurrentX = 1800
Printer.CurrentY = 3600
Printer.Print Label5.Caption
Printer.CurrentX = 2400
Printer.CurrentY = 3480
Printer.Print Text4.Text
Printer.EndDoc
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
