关于在打印机上打印！

Question

下面这段代码，怎样修改可以让它在打印机上打出来？Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer
For x = 1 To 2
    For y = 1 To 10
       Print "亮";
    Next
    Print
Next
End Sub

Answer 1

自由界面和报表的完美解决方案！
http://www.anylib.com

Answer 2

Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer
For x = 1 To 2
    For y = 1 To 10
       printer.Print "亮";
    Next
    Print
Next
printer.enddoc
End Sub

Answer 3

少看一句
Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer
For x = 1 To 2
    For y = 1 To 10
       printer.Print "亮";
    Next
    printer.Print " "
Next
printer.enddoc
End Sub

Answer 4

发送到打印机要调用打印机对象Printer
而不是Print方法（此方法仅为在窗体上输出）。真正要调用打印：Printer.print
打印完所使用Printer.enddoc终止进程.