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

newsunix 2001-11-29 09:18:09
谁给我一个打印的源程序?
...全文
59 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
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

7,755

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧