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
|