Question

vb中如何才能实现打印预览类似的功能

Answer 1

方法：传送正文和图形给 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