FPrintDlg bildet einen Print Dialog ab.
Property | Datentyp(Read/Write) | Hinweise |
hdcPrn | HDC(R) | Steht zur Verfügung wenn der Dialog mit OK beendet wird. |
FromPage | Integer(R/W) | Wenn Seiten von ... aktiviert wurde. Sonst immer 1 |
ToPage | Integer(R/W) | Wenn Seiten von ... aktiviert wurde. Sonst 0 |
Copies | Integer (R/W) | Anzahl der Kopien (wenn aktiviert) |
Style | UInteger (R/W) | Voreingestellt ist PD_RETURNDC Or PD_PRINTSETUP. Sollen andere Verwendet werden müssen diese vor Execute gesetzt werden |
Sub/Function | Argumente | Hinweise |
Function Execute | (ByVal hParent As HWND) | Bei Abbruch wird 0 (False) zurückgegeben andernfalls 1. |
Sub menu_mnPrint Dim As RECT rc If prn1.Execute(Form1.Handle) Then SetRect(@rc,20,5,5,5) ' Margin in Millimeter , kann auch NULL sein REdit.PrintRichEdit(prn1.hdcPrn,@rc) EndIf End Sub