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

newsunix 2001-11-29 09:18:09
谁给我一个打印的源程序?
...全文
54 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
  • 打赏
  • 举报
回复
http://ygyuan.go.163.com/
http://ygyuan.3322.com/
http://www.yueliangwan.com.cn/yf/XPVersion/yfproduct/PrintView.asp
发帖
VB基础类

7681

社区成员

VB 基础类
社区管理员
  • VB基础类社区
加入社区
帖子事件
创建了帖子
2001-11-29 09:18
社区公告
暂无公告