USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Impressões/Impressoras)

Título da Dica:  Imprimindo o Conteúdo de um RichTextBox
Postada em 14/8/2000 por Webmaster      Clique aqui para enviar email para o autor  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página