打印报表

[csdnquestion]

用Printer.print打印一个简单的报表。
请问在打印到打印机之前能否先预览一下？怎么办？

[csdnquestion]

如果报表在一个picturebox显示不下怎么办？

[射天狼]

把printer换成picturebox控件,打印的时候再换成Printer

'打印或者预览的函数
Private Sub PrintPurview(PtrObj As Object)
'预览


If PtrObj Is Printer Then
Printer.EndDoc
End If
End Sub

Private Sub Command1_Click()
PrintPurview picture1 '用PICTUREBOX控件预览
PrintPurview Printer '用PRINTER 打印
End Sub