Printer.Print打印问题 — 编程爱好者社区

主题：Printer.Print打印问题

zjhyxjs [专家分：0] 发布于 2010-01-10 16:54:00

我在VB程序中，设置了一个打印安钮，内容如下，

Private Sub Command1_Click()
Printer.Print "HelloChina ComputerWorld"
End Sub

系统提示：Printer.Print "HelloChina ComputerWorld"
有问题？
请问用Printer.Print如何实现打印？

是否要在程序的最前面先声明一？打印是否也要要链接一下？这些代码又应该是如何写的？请高手举个简单的例子。谢谢！小弟初学。

本帖地址： http://bbs.pfan.cn/post/315813.html

回复列表（共4个回复）

沙发

老大徒伤悲 [专家分：29120] 发布于 2010-01-10 23:14:00

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

板凳

dfghfgh1211 [专家分：0] 发布于 2010-01-11 13:40:00

初学,我的代码是这样的:
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

3 楼

dfghfgh1211 [专家分：0] 发布于 2010-01-11 13:52:00

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

4 楼

pengjiangxue [专家分：0] 发布于 2010-01-13 17:33:00

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

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：Printer.Print打印问题

回复列表（共4个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：Printer.Print打印问题

回复列表 （共4个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共4个回复）