Fórum Impressao direta generico somente texto #331129
14/10/2006
0
Grato.
Randall
Curtir tópico
+ 0Posts
15/10/2006
Ffc
Gostei + 0
16/10/2006
Sremulador
Gostei + 0
16/10/2006
Randall
Gostei + 0
16/10/2006
Nigro
Gostei + 0
16/10/2006
Randall
ja coloquei funcionando local deu erro coloquei remoto deu erro, uso
writeln e write, e ai qdo vou na outra estacao com win 98 funciona perfeitamente.
Obs. meu cliente tem uma rede windows, era todas win 98 agora existe 2 win 98 e 2 win xp, as duas com o xp da problema imprimi tudo desformatado tudo loco, nas 2 win 98 funciona perfeitamente como ja funcionava anteriormente .
Grato pela ajuda
Gostei + 0
16/10/2006
Macario
Em quais estacoes se encontram as impressoras?
Gostei + 0
17/10/2006
Eniorm
www.devres.cjb.net
muito bom
Gostei + 0
18/10/2006
Randall
Gostei + 0
21/10/2006
Ffc
Outra opção é vc fazer no seu gerador de relatorio uma verredura pelos componentes e sair trocando a fonte para por exemplo:
Font.Name := ´Draft 12cpi´;
Obs: Tem impressoras matriciais que não possuem esta fonte, então tenha cuidado.
A impressão vai ser realizada de maneira rápida também em impressoras matricais.
Abraços.
Gostei + 0
23/10/2006
Pro-luck
Acho que vale a pena vc tentar isso. Claro, somente se ainda não o resolveu...
Espero ter ajudado...
Fica com Deus.
Gostei + 0
24/10/2006
Randall
PRINTER.BeginDoc;
PRINTER.CANVAS.Font.Handle := GETSTOCKOBJECT(DEVICE_DEFAULT_FONT);
PRINTER.CANVAS.TEXTOUT(1,01,´-------------------------------------------------------------------------------´);
PRINTER.CANVAS.TEXTOUT(1,02,´ Form Produto Data Emb Qtd Entrega Hora´);
PRINTER.CANVAS.TEXTOUT(1,03,´ ´+sCF+´ ´+sProd+´ ´+sData+´ ´+sEmb+´ ´+sQtd+´ ´+sEntr+´ ´+sHora);
PRINTER.CANVAS.TEXTOUT(1,04,´-------------------------------------------------------------------------------´);
PRINTER.CANVAS.TEXTOUT(1,05,´ Cliente : ´+sCli);
PRINTER.CANVAS.TEXTOUT(1,06,´ Medico : DR(A). ´+sMed);
PRINTER.CANVAS.TEXTOUT(1,07,´-------------------------------------------------------------------------------´);
PRINTER.CANVAS.TEXTOUT(1,08,´ Cod Substancia Qtd Rec un Qtd Baixada un Lote Fornecedor ´);
PRINTER.CANVAS.TEXTOUT(1,09,´-------------------------------------------------------------------------------´);
//
//
//
PRINTER.CANVAS.TEXTOUT(1,i+6,´-´);
PRINTER.CANVAS.TEXTOUT(1,i+7,´-´);
PRINTER.CANVAS.TEXTOUT(1,i+8,´*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*´);
PRINTER.CANVAS.TEXTOUT(1,i+9,´-´);
PRINTER.CANVAS.TEXTOUT(1,i+10,´-´);
PRINTER.CANVAS.TEXTOUT(1,i+11,´-´);
PRINTER.EndDoc;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)