奇怪的ME.PRINTFORM,打印出来是空白的

Question

Private Sub Form_Activate()Print .....'此处动态显示内容
 
Me.PrintFormEnd Sub内容可以显示在窗体上,但是打印机打印出来是空白的,而且打印机打印完毕后,窗体也变成空白,何解?

Answer 1

试试看把窗体属性AUTOREDRAW设为TRUE

Answer 2

是不是Form_Activate事件里不能打印呢?放在load里可以打印,不过print....'动态内容 却没办法显示

Answer 3

可以的
Option ExplicitPrivate Sub Form_Click()
    Call Form_Paint
End SubPrivate Sub Form_DblClick()
    Me.PrintForm
End SubPrivate Sub Form_Load()
    Me.AutoRedraw = True
End SubPrivate Sub Form_Paint()
    Cls
    Line (0, 0)-(ScaleWidth, ScaleHeight)
End Sub