COMANDO PRINTER

NETOCAZUZA 02/07/2013 21:00:45
#425484
Estou precisando gerar relatórios do meu banco de dados e não tenho o cristal report nem outro programa instalado no meu VB (versão 6.0). A saída que eu achei foi o comando printer, porém todo comando que coloco o Printer, dá erro. Tenho que acrescentar algum componente ou referência pra esse comando funcionar? Sei que o problema é com ele, pois quando direciono o mesmo comando para um picturebox, por exemplo, dá certo.
Ex: No comando [txt-color=#e80000]Printer.Print Tab(10); [Ô]matricula[Ô][/txt-color]; aparece o erro runtime-error 482.
Quando substituo o Printer por [txt-color=#e80000]painel[/txt-color], que é um PictureBox que eu criei, dá certo, e os dados aparecem nesse painel. Alguém sabe como resolver isso?
SAMUKA 03/07/2013 11:00:10
#425499
Esse erro está relacionado com a impressora, verifique se os drivers estão OK e se a impressora em que você quer imprimir está selecionada como Padrão.
NETOCAZUZA 03/07/2013 11:59:19
#425505
Pode ser que sim. Tenho várias impressoras instaladas, on-line, tudo certinho. Deve estar faltando alguma coisa no código para testar se tem impressora instalada. Alguém tem idéia de como fazer isso antes do Print?
SAMUKA 03/07/2013 17:21:17
#425531
Esse código retorna a impressora padrão.

  Msgbox Printer.DeviceName
NLSOLUCOES 03/07/2013 17:23:41
#425532
[txt-color=#0000f0]NETOCAZUZA[/txt-color], da uma olhada aqui, se eu estivesse com um pouco mais de tempo, eu filtraria pra você.

http://vbweb.com.br/dicas.asp?Modulo=VB&Classificacao=9
FILMAN 03/07/2013 23:07:08
#425549
Tente esse exemplo simples de utilização, verifica se dá certo!

    Printer.Orientation = 1
    
    Printer.CurrentX = 100
    Printer.CurrentY = 100
    
    Printer.Print [Ô]TABUADA DO 2[Ô]
    Printer.Print [Ô]----------------------------[Ô]
    
    For i = 0 To 10
        Printer.CurrentX = 100
        Printer.Print [Ô]2 x [Ô] & i & [Ô] = [Ô] & CStr(2 * i)
    Next
    
    Printer.CurrentX = 2000
    Printer.CurrentY = 1200
    Printer.Print [Ô]ESSA EH A TABUADA DO 2(dois)![Ô]
    
    Printer.EndDoc



Coloque o código dentro de um Botão
NETOCAZUZA 05/07/2013 13:31:56
#425617
Samuka, no teu código aparece a impressora no msgbox, agora o código do FILMAN, aparece o mesmo erro quando executo (runtime-error 482). Tá parando na linha Printer.Print [Ô]---------------------------[Ô].
SAMUKA 05/07/2013 13:35:20
#425618
Essa impressora padrão, tá conectada no seu computador, ou é via rede? Qual o modelo da impressora? Matricial, Laser ...
NETOCAZUZA 05/07/2013 15:54:00
#425624
Na verdade tenho várias impressoras, mas no momento nenhuma tá ligada, será que é só isso? Como to testando os comandos apenas, to no meu note, com várias impressoras instaladas, mas nenhuma ligada de fato, então imaginei que apareceria um erro, informando que a impressora não estava ligada, ou erro ao imprimir.
OCELOT 05/07/2013 16:20:45
#425626
Mas é exatamente o erro que você está tendo

http://msdn.microsoft.com/en-us/library/aa243552(v=vs.60).aspx
SAMUKA 05/07/2013 16:29:33
#425628 Resposta escolhida
NETOCAZUZA, aí vc judiou de mais da conta ......

Cara se vc não tem nenhuma impressora disponível, instale uma impressora virtual, desse tipo: CutePDF dessa forma vc testa, sem gastar papel.
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar