Juliana
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 03/04/2006 12:33 hs
Gente To precisando muito resolver isso... Como imprimir o conteudo de uma tabela em impressora de 40 colunas sem usar o objeto Printer, usando a porta LPT1. |
|
|
|
|
|
kerplunk
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 03/04/2006 13:26 hs
open ""lpt1" for output as #1 print "teste" close #1 |
|
|
|
Juliana
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 03/04/2006 14:44 hs
to fazendo assim , mas não está funcionando open "LPT1" for output as #1 Do While rsMovCaixa.EOF
Print #1, Tab(5); rsMovCaixa.Fields(2);
Print #1, Tab(20); rsMovCaixa.Fields(3)
Print #1, Tab(1); Mid(rsMovCaixa.Fields(1), 1, 10);
Print #1, Tab(30); Format(rsMovCaixa.Fields(4), "currency")
rsMovCaixa.MoveNext
Loop close #1 |
|
|
|
|
|
Postada em 03/04/2006 14:58 hs
open "LPT1:" for output as #1 ' o certo é "LPT1:" e não "LPT1" Do While rsMovCaixa.EOF
Print #1, Tab(5); rsMovCaixa.Fields(2);
Print #1, Tab(20); rsMovCaixa.Fields(3)
Print #1, Tab(1); Mid(rsMovCaixa.Fields(1), 1, 10);
Print #1, Tab(30); Format(rsMovCaixa.Fields(4), "currency")
rsMovCaixa.MoveNext
Loop close #1 |
|
|
|
Juliana
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 03/04/2006 15:39 hs
Ainda não esta imprimindo.... Será que não é os campos da tabela ? Ja declarei uma string, e coloquei o campo na variavel, e tb não resolveu. Tipo assim. dim Campo as string campo = rs.fields(2) print #1,campo; |
|
|
|
Cardoso G
|
PATOS DE MINAS
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 04/04/2006 08:01 hs
Juliana é estranho esses exemplos ai era pra funcionar, o meu funciona correto aqui pegando o exemplo do joao paulo. |
|
|
|
