谁给我一个打印的源程序?

newsunix 2001-11-29 09:18:09

谁给我一个打印的源程序?

...全文

55 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

32572 2002-01-20

打赏
举报

fishzone 2001-11-29

打赏
举报

On Error GoTo myErr
Printer.Orientation = 2
strTitle = vbCrLf & vbCrLf & Space(30) & "衣棉集团分店信息表" & vbCrLf
strHead = Space(10) & "打印日期： " & Format(Date, "yyyy年mm月dd日") & vbCrLf & _
Space(10) & String(124, "-") & vbCrLf & _
Space(10) & "分店名称" & Space(20) & "电话号码" & Space(10) & "传真号码" & Space(10) & "地址" & vbCrLf & _
Space(10) & String(124, "-")
strFoot = vbCrLf & Space(60) & "第" & m & "页"

Printer.FontName = "宋体"
Printer.FontBold = True
Printer.FontSize = 14
Printer.Print strTitle
Printer.FontBold = False
Printer.FontSize = 10
Printer.Print strHead
Printer.Print strBody
Printer.Print strFoot
Printer.EndDoc

y1g1y1 2001-11-29