奇怪的ME.PRINTFORM,打印出来是空白的
Private Sub Form_Activate()
Print ..... '此处动态显示内容
Me.PrintForm
End Sub
内容可以显示在窗体上,但是打印机打印出来是空白的,而且打印机打印完毕后,窗体也变成空白,何解?
[解决办法]
可以的
Option Explicit
Private Sub Form_Click()
Call Form_Paint
End Sub
Private Sub Form_DblClick()
Me.PrintForm
End Sub
Private Sub Form_Load()
Me.AutoRedraw = True
End Sub
Private Sub Form_Paint()
Cls
Line (0, 0)-(ScaleWidth, ScaleHeight)
End Sub