Printing

[Top]  [Chapter]  [Previous]  [Next]

These actions handle printing, preview and page setup

 

Private Sub mnuFilePrint_Click()

    On Error Resume Next

    If ActiveForm Is Nothing Then Exit Sub    

    ActiveForm.rtfText.wpaProcess "PrintDialog", ""

End Sub

 

Private Sub mnuFilePrintPreview_Click()

    ActiveForm.rtfText.wpaProcess "DiaPreview", ""

End Sub

 

Private Sub mnuFilePageSetup_Click()

    On Error Resume Next

    ActiveForm.rtfText.wpaProcess "DiaPageProp", ""

End Sub

 

 


[printing.htm]    Copyright © 2007 by WPCubed GmbH