Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

fernandofbl

Vb

Recommended Posts

Voçê pode passar os dados diretamente para impressora através do Print, mais o menos assim:cabeçalho: Open "lpt1" For Output As #1 Print #1, rst!nm -- onde e o nome Close #1corpo: While Not Rst.EOF Open "lpt1" For Output As #1 Print #1, Rst!nomedoproduto Close #1 Rst.MoveNext Wend Rst.MoveFirstrodapé: Open "lpt1" For Output As #1 Print #1, "Volte Sempre!" Set Rst = NothingEspere ter lhe ajudado....

Compartilhar este post


Link para o post
Compartilhar em outros sites

Voçê pode passar os dados diretamente para impressora através do Print, mais o menos assim:cabeçalho: Open "lpt1" For Output As #1 Print #1, rst!nm -- onde e o nome Close #1corpo: While Not Rst.EOF Open "lpt1" For Output As #1 Print #1, Rst!nomedoproduto Close #1 Rst.MoveNext Wend Rst.MoveFirstrodapé: Open "lpt1" For Output As #1 Print #1, "Volte Sempre!" Set Rst = NothingEspere ter lhe ajudado....

e como ajudou cara eu uso o comando print, mas nao tao detalhado assim mando direto para a impressora, sem testar se a mesma esta conectada valeu cara

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.