vb窗体内容打印有关问题
vb窗体内容打印问题
求各位高手帮忙看看啊!
现在需要打印窗体,由于不需要太高的精度,所以用的是PrintForm方法,但是窗体中有一行在PictureBox输出的文字,PictureBox的AutoRedraw设置为True,打印前Refresh窗体,但是这行文字用PrintForm打印不出来,PictureBox的形状能显示,但是文字没有,请问这怎么解决啊?先谢过了!!!

PictureBox中显示的文字的代码:
Picture3.CurrentX = 0
Picture3.CurrentY = 0
Picture3.Font = lblNum.Font
Picture3.Print lblNum.Caption
打印按钮的代码:
Dim BeginPage, EndPage, NumCopies, Orientation, i
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
CommonDialog1.ShowPrinter
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
CommonDialog1.Orientation = cdlLandscape
For i = 1 To NumCopies
cmdPrint.Visible = False
cmdQuitPreview.Visible = False
Printer.PaperSize = vbPRPSA4
Printer.Orientation = vbPRORLandscape
Refresh
PrintForm
cmdPrint.Visible = True
cmdQuitPreview.Visible = True
Next
------解决方案--------------------
不要去管它原理如何, 先把问题给解决了:
如果非要用图形方式输出文字, 那么在picturebox有问题的时候可以直接在form上显示.
picturebox能干的事form都能干.
求各位高手帮忙看看啊!
现在需要打印窗体,由于不需要太高的精度,所以用的是PrintForm方法,但是窗体中有一行在PictureBox输出的文字,PictureBox的AutoRedraw设置为True,打印前Refresh窗体,但是这行文字用PrintForm打印不出来,PictureBox的形状能显示,但是文字没有,请问这怎么解决啊?先谢过了!!!
PictureBox中显示的文字的代码:
Picture3.CurrentX = 0
Picture3.CurrentY = 0
Picture3.Font = lblNum.Font
Picture3.Print lblNum.Caption
打印按钮的代码:
Dim BeginPage, EndPage, NumCopies, Orientation, i
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
CommonDialog1.ShowPrinter
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
CommonDialog1.Orientation = cdlLandscape
For i = 1 To NumCopies
cmdPrint.Visible = False
cmdQuitPreview.Visible = False
Printer.PaperSize = vbPRPSA4
Printer.Orientation = vbPRORLandscape
Refresh
PrintForm
cmdPrint.Visible = True
cmdQuitPreview.Visible = True
Next
------解决方案--------------------
不要去管它原理如何, 先把问题给解决了:
如果非要用图形方式输出文字, 那么在picturebox有问题的时候可以直接在form上显示.
picturebox能干的事form都能干.