VB6.0 编程 关于编写打印程序.恭敬前辈

通过自己的设计和编程完成报表打印输出。

传送正文和图形给 Printer 对象，再用 NewPage 和 EndDoc 方法打印。

Option Explicit

Private y As Integer

Private x As Integer

Private txt As String

Private fnt As Integer

Private dd As Variant

'打印函数

Public Function prnt(x As Variant, y As Variant, fnt As Variant, txt As Variant)

PrinterCurrentX = x

PrinterCurrentY = y

PrinterFontSize = fnt

PrinterPrint txt

End Function

Private Sub cmdPrint_Click()

fnt = 18

y = 300

x = 500

txt = "打印"

dd = prnt(x, y, fnt, txt)

PrinterEndDoc ' 打印完成。

End Sub

详细请参阅如下网址本人的答复：

>

这个要用VBA

打开一个WORD文档 按Ctrl+F11

会出现VB编辑器 右键点击-插入-模块

出现该窗口

输入

Sub A()

FName = Dir("E:\A\doc")

Do While FName <> ""

DocumentsOpen FileName:="E:\A\" & FName

ApplicationPrintOut Range:=wdPrintRangeOfPages, Item:=wdPrintDocumentContent, Copies:=1, Pages:="3"

ActiveWindowClose

FName = Dir

Loop

End Sub

把要打的文件放到E:\A\ 目录下

最后 在VB编辑器按F5

点击运行即可

实际你可以再设计一个窗口，例如“打印”窗口，窗口大小和你打印大小相同，在窗口设计资料栏(用Label控件)、照片(用Image控件)，然后加载数据库，最后用PrintForm打印即可。

以上就是关于VB6.0 编程 关于编写打印程序.恭敬前辈全部的内容，包括:VB6.0 编程 关于编写打印程序.恭敬前辈、请问，谁有批量打印固定目录文件夹下的excel记事簿（500份）的程序宏编程也行、批量打印单页等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！