Impressao direta generico somente texto

Delphi

14/10/2006

Tenho um problema de impressao no win xp, sai todo loco o q mando imprimir no generico somente texto, e funciona normalmente no win 98, será q e o driver do win xp ? estou com este problema se alguem puder me ajudar ?

Grato.


Randall

Randall

Curtidas 0

Respostas

Ffc

Ffc

14/10/2006

Amigo de mais detalhes sobre qual impressora esta usando, qual driver e qual tipo de saida (LPT ou USB)?


GOSTEI 0
Sremulador

Sremulador

14/10/2006

você poderia utilizar o fortes report pois ele e ótimo para impressão em matricial [url]www.fortesreport.com.br[/url]


GOSTEI 0
Randall

Randall

14/10/2006

bom as impressoras sao lx300 ou lx810 e conexao lpt1, sei q posso usar componentes mas terei q refazer a parte de impressao inteira e o programa ja roda normalmente em outra maquina do cliente so no xp q da problema


GOSTEI 0
Nigro

Nigro

14/10/2006

Como você está trabalhando, o problema está nas impressoras apenas com XP, independente de ser remoto ou local? Você está usando algum tamanho de papel personalizado? Ou você está usando Write e WriteLN


GOSTEI 0
Randall

Randall

14/10/2006

bom o problema e nas impressoras com win xp, tanto remoto qto local,
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
Macario

Macario

14/10/2006

Ola.

Em quais estacoes se encontram as impressoras?


GOSTEI 0
Eniorm

Eniorm

14/10/2006

tente usar o ótimo componente VDOPrint

www.devres.cjb.net

muito bom


GOSTEI 0
Randall

Randall

14/10/2006

hoje estao nas maquinas win 98, mas ja testei nas maquinas win xp e nao imprimiram de forma correta . Isto nao seria problema do driver do win xp ?


GOSTEI 0
Ffc

Ffc

14/10/2006

Amigo se tiver usando LX300 por exemplo tente jogar para LX400.

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
Pro-luck

Pro-luck

14/10/2006

Qual a versão do Delphi que vc está usando? Tive este mesmo problema e resolvi atualizando a versão do Delphi 3 para Delphi 5.

Acho que vale a pena vc tentar isso. Claro, somente se ainda não o resolveu...

Espero ter ajudado...

Fica com Deus.


GOSTEI 0
Randall

Randall

14/10/2006

Estou usando a versao 7 do delphi, segue parte do codigo :

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
POSTAR