|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Impressões/Impressoras)
|
|
 |
Título da Dica: Imprimindo o Conteúdo de um RichTextBox
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
Para imprimir o conteúdo de um RichTextBox, basta você passar a ele o hDC da impressora. Veja:
'No evnto que você desejar:
RichTextBox1.SelPrint Printer.hDC
Mas e para imprimir numa impressora selecionada num CommonDialog??? Também é simples. Veja o exemplo:
'No evnto que você desejar:
'Seleciona as Flags necessárias
CommonDialog1.Flags = cdlPDReturnDC + _
cdlPDNoPageNums
If RichTextBox1.SelLength = 0 Then
CommonDialog1.Flags = cdlFontes.Flags + _
cdlPDAllPages
Else
CommonDialog1.Flags = cdlFontes.Flags + _
cdlPDSelection
End If
'Abre o CommonDialog para seleção/configuração
'de impressoras
CommonDialog1.ShowPrinter
'Manda imprimir o conteúdo do RichTextBox na
'impressora selecionada no CommonDialog
RichTextBox1.SelPrint CommonDialog1.hDC
|
|
|
|
|
