IMPRESSAO

USUARIO.EXCLUIDOS 02/08/2007 16:24:47
#229159

por favor nao entendi, me desculpe
exemplo
tenho as seguintes linhas que quero imprimir

printer.print tab(5) "Nome: "
printer.print tab(5) "End: "
printer.print tab(5) "Cidade: "
printer.print tab(5) "UF: "
printer.enddoc

como faço para colocar isso no botao imprimir

VB6MASTER 02/08/2007 16:35:53
#229162

Xiiii irmão.
Com o objeto Printer acredito que não há como vc utilizar o CommonDialog, a não ser que vc coloque seu relatório em uma Caixa de Texto ou em algum outro objeto (PictureBox - p.ex.) e imprimir a partir dele.
O objeto Printer, já manda direto pra impressora, mesmo antes de encontrar o Printer.EndDoc, por isso, vc deve colocar seu relatório em algum outro objeto e mandar imprimÃƒÃ‚Â-lo a partir dele.
Blz?

USUARIO.EXCLUIDOS 02/08/2007 16:42:08
#229166

Entao vamos supor que eu visualizo td em um richtextbox como faço para imprimir o que esta ali dentro.
por favor esta sendo de grande ajuda, tenho mais uma pergunta a fazer depois que responder essa.

VB6MASTER 03/08/2007 14:44:11
#229360

Para imprimir um RichTextBox chamando o CommonDialog:

Private Sub Command1_Click()

'código retirado de exemplo de MSDN - VB6-SP6
   CommonDialog1.Flags = cdlPDReturnDC + cdlPDPageNums  'esta ÃƒÃ‚Âºltima constante habilita a opção de nÃƒâ€šÃ‚Âº de páginas.
   If RichTextBox1.SelLength = 0 Then
      CommonDialog1.Flags = CommonDialog1.Flags + cdlPDAllPages
   Else
      CommonDialog1.Flags = CommonDialog1.Flags + cdlPDSelection
   End If
   CommonDialog1.ShowPrinter
   Printer.Print ""
   RichTextBox1.SelPrint CommonDialog1.hdc

End Sub

Página 2 de 2 [14 registro(s)]

Tópico encerrado , respostas não são mais permitidas

Voltar