IMPRIMIR ACTIVE REPORTS DIRETO IMPRESSORA
Estou utilizando ACTIVE REPORTS com Visual Basic 6.
Alguém sabe como imprimir relatório feito no Active Reports direto para impressora?
Tenho nome da impressora que o usuário selecionou no sistema.
A impressão tem que ir direto para esta impressora sem abrir nenhum tela.
Para enviar direito para impressora faço assim:
rptRelatorio.PrintReport False
Porém, o relatório é impresso na impressora que esta selecionada como padrão dentro do Windows.
Gostaria que imprimisse na impressora que o usuário configurou no sistema para impressão do relatório.
Alguém sabe como imprimir relatório feito no Active Reports direto para impressora?
Tenho nome da impressora que o usuário selecionou no sistema.
A impressão tem que ir direto para esta impressora sem abrir nenhum tela.
Para enviar direito para impressora faço assim:
rptRelatorio.PrintReport False
Porém, o relatório é impresso na impressora que esta selecionada como padrão dentro do Windows.
Gostaria que imprimisse na impressora que o usuário configurou no sistema para impressão do relatório.
Uma vez precisei imprimir em uma impressora que não fosse a padrão, igual o que vc esta fazendo e nas minhas pesquisas na net achei o módulo que me ajudou a fazer o que eu queria, segue ele
[ô]No módulo
Public Function SelectPrinter(byVal Nome as String) As Boolean
Dim X as Printer
For each X in Printers
If Ucase(Mid(X.DeviceName,1,8))=UCase(Mid(Nome,1,8)) then
Set Printer=X
SelectPrinter = True
Exit For
End If
Next
SelectPrinter = False
End Function
[ô]P/ chamar:
Dim RET As Boolean
RET = SelectPrinter([Ô]Epson LX-300[Ô])
If RET = True Then
[ô]A impressora foi encontrada e selecionada.
Else
[ô]A impressora NÃO foi encontrada.
End If
A função definirá esta impressora ([Ô]Epson LX-300[Ô], como no exemplo) como padrão para a impressão a ser realizada.
O problema é que a função vai tirar a impressora padrão do Windows que já foi configurada pelo usuário!
Será que o Active Reports não tem função para imprimir diretamente em impressora que especificar?
Será que o Active Reports não tem função para imprimir diretamente em impressora que especificar?
uma sugestao é voce ver qual impressora é padrao fazer o comando acima e depois voltar a impressora como estava
Mas, será que o Active Reports não possui função para enviar impressão direto para impressora desejada sem ter que fazer todo esse marabalismo?
Consegui! Para quem precisar:
[ô]seleciona impressora
actRel.Printer.DeviceName = NomeImpressora
[ô]imprime direto para impressora
actRel.PrintReport False
Este tópico que me ajudou: http://www.vbforums.com/showthread.php?704405-RESOLVED-Print-data-report-on-non-default-printer por que vi o nome do comando DeviceName que é o mesmo no ActiveReports.
Muito obrigado a todos que ajudaram dando suas contribuições!
[ô]seleciona impressora
actRel.Printer.DeviceName = NomeImpressora
[ô]imprime direto para impressora
actRel.PrintReport False
Este tópico que me ajudou: http://www.vbforums.com/showthread.php?704405-RESOLVED-Print-data-report-on-non-default-printer por que vi o nome do comando DeviceName que é o mesmo no ActiveReports.
Muito obrigado a todos que ajudaram dando suas contribuições!
Tópico encerrado , respostas não são mais permitidas