1个回答
展开全部
Printer对象
Printer对象可以实现与系统打印机的通信
Printer对象常用的属性有:Height,width,PaperSize,DeviceName等分别表示打印纸的长度,宽度,纸张大小,打印机名称。
Printer对象有三个很重要的方法:EndDoc(开始打印),KillDoc(中断打印)和NewPage(换页).
例如:有一个“注意26日病毒!”提示要打印10份,并加页码,用如下程序段实现:
Private Sub command_Click()
Dim i As Integer
Dim str As String
str="注意26日病毒!"
Printer.FontName="黑体"
Printer.FontSize=26
For i=1 To 10
Printer.Print str
Printer.Print "第 " & Printer.Page & "页"
Printer.NewPage
Next
Printer.EndDoc
End Sub
Printer对象可以实现与系统打印机的通信
Printer对象常用的属性有:Height,width,PaperSize,DeviceName等分别表示打印纸的长度,宽度,纸张大小,打印机名称。
Printer对象有三个很重要的方法:EndDoc(开始打印),KillDoc(中断打印)和NewPage(换页).
例如:有一个“注意26日病毒!”提示要打印10份,并加页码,用如下程序段实现:
Private Sub command_Click()
Dim i As Integer
Dim str As String
str="注意26日病毒!"
Printer.FontName="黑体"
Printer.FontSize=26
For i=1 To 10
Printer.Print str
Printer.Print "第 " & Printer.Page & "页"
Printer.NewPage
Next
Printer.EndDoc
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询