用Printer对象打印表格,出现问题。头疼,帮帮忙,大家!

yeman 2003-11-12 12:19:26
Private Sub Label1_Click()
With Printer
.Orientation = 2 '横向打印
.ScaleMode = 6
.Height = 420
.Width = 297
.ScaleWidth = 297
.ScaleHeight = 420
.ScaleLeft = 0
.ScaleTop = -10
usew = .ScaleWidth
useh = .ScaleHeight
'.Zoom = 70
.FontName = "黑体"
.FontSize = 16
.CurrentX = (usew - Printer.TextWidth("现金支出表")) / 2
.CurrentY = 0
End With
Printer.Print frmmain.Label1.Caption
Printer.Print
Dim Y As Integer
Y = Printer.CurrentY

Printer.CurrentX = 10
Printer.Print "部门:" + frmmain.bum
Printer.CurrentX = 180
Printer.CurrentY = Y
Printer.Print frmmain.Label3.Caption
Printer.FontBold = False
Printer.FontName = "宋体"
Printer.CurrentX = 0
If frmmain.bx = 1 Or frmmain.bx = 2 Then
Printer.FontSize = 10
Printer.Print "┏━━┯━━━━━━┯━━━━━━┯━━━━━━┯━━━━━━┯━━━━━━┯━━━━━━┯━━━━━━┯━━━━━━┯━━━━━━┯━━━━━━┯━━━━━━┯━━━━━━┓"
Printer.Print "┃ │ 一月 │ 二月 │ 三月 │ 四月 │ 五月 │ 六月 │ 七月 │ 八月 │ 九月 │ 十月 │ 十一月 │ 十二月 ┃"
For a = 1 To 31
Printer.Print "┠──┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┨"

s = "┃" + Right(" " + Trim(CStr(a)), 2) + "日"
For b = 1 To 12
s = s + "│" + Right(Space(12) + Trim(frmmain.MSG.TextMatrix(b, a)), 12)
Next b
s = s + "┃"
Printer.Print s
Next a
Printer.Print "┠──┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┨"
s = "┃合计"
For b = 1 To 12
s = s + "│" + Right(Space(12) + Trim(frmmain.MSG.TextMatrix(b, 32)), 12)
Next b
s = s + "┃"
Printer.Print s
Printer.Print "┗━━┷━━━━━━┷━━━━━━┷━━━━━━┷━━━━━━┷━━━━━━┷━━━━━━┷━━━━━━┷━━━━━━┷━━━━━━┷━━━━━━┷━━━━━━┷━━━━━━┛"
Printer.EndDoc
End If

If frmmain.bx = 3 Then
Printer.FontSize = 12
Printer.Print "┏━━━┯━━━━━━┯━━━━━━┯━━━━━━┯━━━━━━┯━━━━━━┯━━━━━━┯━━━━━━┓"
Printer.Print "┃ │ 期 初 数 │ 补助收入 │ 上级收入 │ 预算外收入 │ 其它收入 │ 支 出 │ 结 余 ┃"

For a = 1 To 12
Printer.Print "┠───┼──────┼──────┼──────┼──────┼──────┼──────┼──────┨"

s = "┃" + Right(" " + Trim(CStr(a)), 3) + "月 "
For b = 1 To 7
s = s + "│" + Right(Space(12) + Trim(frmmain.MSG.TextMatrix(a, b)), 12)
Next b
s = s + "┃"
Printer.Print s
Next a
Printer.Print "┗━━━┷━━━━━━┷━━━━━━┷━━━━━━┷━━━━━━┷━━━━━━┷━━━━━━┷━━━━━━┛"

Printer.EndDoc
End If

End Sub

=============================================
问题
==============================================
.ScaleMode = 6 ‘设置为以mm为单位,在那个针式打印机上不起作用,
.Zoom = 70 ‘同样不起作用
Printer.FontSize = 10 字体大小为10或者12时表格才能显示正常,但是A3纸打印不下
如果选择其他字体大小的话,表线和下面有数字的行会产生一点偏差,效果如下:

┏━━━┯━━━━━━┯━━━━━━┯━━━━━━┯
┃ │ 一月 │ 二月 │ 三月 │
一开始偏差很小很小(不到一毫米),越向右偏差越来越大。不知道这点偏差是因为什么引起的。在几个打印机上都是如此。

还有一些奇怪的问题。一个很简单的打印让我头疼,不知道该怎么办。

那个打印机是那种一次送一张纸,打完自动退出来的那种。打票据的。

用Printer对象打印的效果在不同的打印机效果会不同吗?

求救~!!!。

...全文
43 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
bingxuehuiren 2003-11-30
  • 打赏
  • 举报
回复
对了,如果楼主解决了问题能不能说一下,你的这些线是怎么画的.我刚学打印.
bingxuehuiren 2003-11-30
  • 打赏
  • 举报
回复
对了你不如把画线变成画方块呢
bingxuehuiren 2003-11-30
  • 打赏
  • 举报
回复
关注
victorycyz 2003-11-12
  • 打赏
  • 举报
回复
把打印表格的字符都换成line,就可精确控制。
yxgsb 2003-11-12
  • 打赏
  • 举报
回复
用Printer对象打印的效果在不同的打印机效果会不同吗?
肯定不同!!!
最好放到窗体或图片框中,用窗体或图片框的Print
在Windows 10或Windows 11操作系统中,用户经常会遇到共享打印机时出现的一系列错误代码,这些错误代码可能会阻碍打印机共享功能的正常使用。常见的错误代码包括0x00000057、0x00000709和0x0000011b,这些代码通常指出了不同的问题,比如权限不足、服务未运行或配置错误等。除此之外,还有一些故障提示如“连接失败”或“内存不足”,这些都可能影响到打印机共享的稳定性。 要解决这些故障,首先要确保打印机已经正确地连接到网络,并且在需要共享的电脑上进行了设置。确保打印机驱动程序是最新的,并且在共享设置中没有错误配置。对于权限问题,需要检查网络上的用户账户是否具有足够的权限来访问共享打印机。同时,也要确保打印机服务正在运行,特别是“Print Spooler”服务,因为这是打印机共享服务的核心组件。 在某些情况下,问题可能与操作系统的更新有关,如升级到最新版的Windows 10或Windows 11后可能出现的兼容性问题。这时,可能需要查看微软的官方支持文档来获取特定的解决方案或更新。 对于错误代码0x00000057,这通常是由于没有足够的权限来访问网络打印机或其共享资源,解决方法是确保网络打印机的权限设置正确,包括在组策略中设置相应的访问权限。而0x00000709错误可能是由于打印机驱动问题打印机端口配置错误,可以尝试重新安装或更新打印机驱动来解决。至于0x0000011b错误,这往往是因为打印机队列服务的问题,检查并重启“Print Spooler”服务通常是解决这类问题的常见手段。 至于“连接失败”或“内存不足”这类故障,通常与客户端和打印机之间的网络连接以及打印机本地资源的使用情况有关。检查网络连接,确保打印机所在的网络段没有故障或中断。同时,如果打印机的打印队列长时间得不到处理,可能会导致内存不足的情况,这时可能需要清理打印队列或增加打印机的内存配置。 为了帮助用户更快速地解决这些问题,市面上出现了各种打印机共享错误修复工具。这些工具往往通过预设的修复程序来自动检测和修正打印机共享中常见的问题。它们可以快速检查打印机驱动、网络连接以及共享设置,并且能够提供一键修复功能,大幅减少了用户自行排查和解决问题的难度。 然而,在使用这些修复工具之前,用户应确保这些工具的来源是安全可靠的,避免因使用不当的修复工具而引发其他系统安全或隐私问题。用户可以到官方平台或者信誉良好的软件提供商处下载这些工具。通过细心检查打印机的共享设置,及时更新驱动程序和服务,以及合理使用修复工具,大多数共享打印机的问题都可以得到有效的解决。

808

社区成员

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

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