请查阅“田野”的旧帖子。有关于打印控制的详细内容。

初学,我的代码是这样的:
Private Sub Form_Load()
Dim da As String * 50
Dim ss As Image
End Sub

Private Sub Command1_Click()
    ss = 30 '每行打印的字数
    da = "噶噶几百几夹大案要案hkasjdhgkajsdghkaljsdghakljdfsghakldfjghakdfjghkasjdhgkajsdghkaljsdghakljdfsghakldfjghakdfjghkasjdhgkajsdghkaljsdghakljdfsghakldfjghakdfjgh"
      For cc = 0 To Len(da) Mod ss
        Printer.FontSize = 12
        Printer.Print Mid(da, cc * ss + 1, ss)
      Next cc
        Printer.FontSize = 12
        Printer.Print ""
        Printer.EndDoc
End Sub

另请大狭指点,使用printer.print方法连续打印不换页,应如何实现?

用newpage方法实现换页操作，即:printer.newpage