Dialog
Tisk
Dialog Tisk můžete využít v aplikaci například tak, že dáte uživateli
možnost změnit nastavení tiskárny, kterou Vaše aplikace používá pro
tisk. Nejdůležitější parametry, které je dobré nastavit před vyvoláním
dialogu pro Tisk jsou:
Parametr |
Změny... |
DialogTitle |
Titulek
okna dialogu |
Printer
Default |
Jestli
se má tiskárna nastavit jako výchozí |
Flags |
Uživatelská
nastavení |
CancelError |
Zda
se bude generovat chyba, když je stisknuto Storno |
Následující
kód zobrazí dialog pro tisk se zablokovaným výběrem rozsahu stránek a
po potvrzení provede tisk vybraného textu z RichTextBox komponenty:
CommonDialog1.PrinterDefault
= True
CommonDialog1.CancelError = True
' Nastavení
vlastností - žádný výběr stránek, návrat ukazatele na tiskárnu
CommonDialog1.Flags
= cdlPDReturnDC + cdlPDNoPageNums
If RichTextBox1.SelLength = 0 Then
CommonDialog1.Flags = CommonDialog1.Flags + cdlPDAllPages
Else
CommonDialog1.Flags = CommonDialog1.Flags +
cdlPDSelection
End If
On Error Resume Next
CommonDialog1.ShowPrinter
If Err Then
Msgbox "Tisk byl stornován !!!"
Exit Sub
End If
RichTextBox1.SelPrint (Printer.hDC)
|