ActiveDelphi

[Liusker]

POR FAVOR ME AJUDEM... TENHO VÁRIOS SISTEMAS, QUANDO FUI INSTALAR UM DELES EM UM NOVO CLIENTE ELE UTILIZA EM SUAS MÁQUINAS WINDOWS XP E POR ALGUM MOTIVO NAO CONSIGO IMPRIMIR NO MODO GENERICO SOMENTE TEXTO COM MEU SISTEMA, UTILIZANDO O TPRINTER.SENDO QUE NO WIN98 FUNCIONA BELEZA E NO WINDOWS XP JÁ INSTALEI E REINSTALEI A IMPRESSORA MATRICIAL COM DRIVER GENERICO SOMENTE TEXTO, ELA IMPRIME A PAGINA DE TESTE BELEZA, SO QUE QUANDO MEU PROGRAMA UTILIZA O TPRINTER PARA IMPRIMIR, A IMPRESSORA FICA SÓ IMPRIMINDO EM UMA UNICA LINHA... ALGUEM ME AJUDE

__________________________________________________________________________
Título Original: SOCORRO!! NAO CONSIGO USAR TPRINTER EM WINDOWS XP
[url=http://www.activedelphi.com.br/modules.php?op=modload&name=XForum&file=viewthread&tid=102]Violação das regras 2 e 4[/url]


[Editado em 28/9/2006 por Sufolk]

[thomazs]

Para imprimir em outra linha, experimente colocar um #13#10 no final da linha.
_________________
Suporte e Consultoria em Desenvolvimento de Sistemas
Bacharel em Sistemas de Informação
Especialista em Bancos de Dados
Desenvolvimento: Clipper, Delphi, PHP, Python/Django

[Liusker]

Não dá certo... Será que alguem pode me ajudar?

[Editado em 29/9/2006 por Liusker]

[getbh]

Tive alguns problemas também com a impressão no xp. Mas percebi que e a quantidade de pixel. Ex. na função em que uso no windows 98.

Procedure xy(x,y: Integer; s: string);
begin
Printer.Canvas.Textout(x*10,y,s)
end;

usu um multiplicado somente na coluna. Para xp tem que usar multiplicadores tanto na coluna como na linha

EX:

Procedure xy(x,y: Integer; s: string);
begin
Printer.Canvas.Textout(x*110,y*130,s)
end;

e um numero bem mais elevado. Parece que a matrix em pixels no xp ela contem mais pixels. Não sei dizer. So sei que funcionou !
_________________
GetBh34

[getbh]

Aki vai a rotina completa que uso para imprimir na matricial. com Canvas:

procedure Tf_md000.Imprimir_etiqueta_matrix;

procedure Init_prt;
begin
Printer.Orientation := poPortrait;
Printer.Title := 'Etiquetas';
SetPrinterPage(21000,33000);
Printer.BeginDoc;
end;


Procedure xy(x,y: Integer; s: string);
begin
Printer.Canvas.Textout(x*110,y*130,s)
end;


procedure Impresso_1;
begin
init_prt; {Inicialize impressora}

xy(01,01,'COLUNA 01 LINHA 01 IMPRIME ESSA LINHA');
XY(01,02,'COLUNA 01 LINHA 02 IMPRIME ESSA LINHA');

printer.EndDoc;
end;
begin
Impresso_1;
end;
_________________
GetBh34