如果你只是想将屏幕上的表单按原样打印出来的话,就用print函数啊!
Private Sub cmdPrint_Click()
On Error GoTo err
Printer.PaintPicture Grid1.Picture, 0, 0
Printer.EndDoc
err:
MsgBox "打印机出错!,请检查打印机的设置!", vbExclamation
End Sub
这是最简单的,但打印效果可能不是很好。
Private Sub cmdPrint_Click()
On Error GoTo err
Printer.PaintPicture Grid1.Picture, 0, 0
Printer.EndDoc
err:
MsgBox "打印机出错!,请检查打印机的设置!", vbExclamation
End Sub
这是最简单的,但打印效果可能不是很好。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货