Common Dialog Control
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)