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

[newsunix]

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

[y1g1y1]

http://ygyuan.go.163.com/
http://ygyuan.3322.com/
http://www.yueliangwan.com.cn/yf/XPVersion/yfproduct/PrintView.asp

[fishzone]

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

[32572]