vb中如何才能实现打印预览类似的功能
答案:1 悬赏:0 手机版
解决时间 2021-12-25 13:11
- 提问者网友：皆是孤独
- 2021-12-24 22:17
vb中如何才能实现打印预览类似的功能
最佳答案
- 五星知识达人网友：神的生死簿
- 2022-01-06 06:27
方法：传送正文和图形给 Printer 对象，再用 NewPage 和 EndDoc 方法打印。，代码如下：
Option Explicit
Private y As Integer
Private x As Integer
Private txt As String
Private fnt As Integer
Private dd As Variant
'打印函数
Public Function prnt(x As Variant, y As Variant, fnt As Variant, txt As Variant)
Printer.CurrentX = x
Printer.CurrentY = y
Printer.FontSize = fnt
Printer.Print txt
End Function
Private Sub cmdPrint_Click()
fnt = 18
y = 300
Option Explicit
Private y As Integer
Private x As Integer
Private txt As String
Private fnt As Integer
Private dd As Variant
'打印函数
Public Function prnt(x As Variant, y As Variant, fnt As Variant, txt As Variant)
Printer.CurrentX = x
Printer.CurrentY = y
Printer.FontSize = fnt
Printer.Print txt
End Function
Private Sub cmdPrint_Click()
fnt = 18
y = 300
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯