Impressao direta em rede com windows xp

Question

Bom dia a todosEstou desenvolvendo um aplicativo em Delphi que usa impress�o direta para impressora.Na maquina local com impressora local funciona tudo maravilha.Mas se imprimir  de uma maquina local ...

Vitor Alcantara · Answer

Da uma olhada em:[url]//forum.clubedelphi.net/viewtopic.php?t=88862&sid=277d945e3b5d7c0fc74289b5e2542694[/url]...

Dominioararangua · Answer

Parece bem boa a unit... obrigado pela resposta...

tentei substituir mas encontrei algumas dificuldades,

antes eu usava com essas constantes

Const
cJustif = #279751;
cEject = 12;
ln = 1310;

{ Tamanho da fonte }
c10cpi = 18;
c12cpi = 2777;
c17cpi = 15;
cIExpandido = 14;
cFExpandido = 20;
{ Formata��o da fonte }
cINegrito = 2771;
cFNegrito = 2772;
cIItalico = 2752;
cFItalico = 2753;
CICondensado = 2715;
cfCondensado = 18;
C8Linhas = 27+48;
C6Linhas = 27+50;

e independente da conf. da impressora assumia essas configura��es...

no caso dessa nova unit por ex. como fa�o pra ficar condensado, ou usar padr�o 8 linhas

Se puder me ajudar

Atenciosamente,
Rodrigo

Vitor Alcantara · Answer

Rodrigo eu n�o tenho certeza e n�o tenho como testar agora pois n�o tenho uma impressora aqui .
Mais acredito que fica do mesmo geito que voc� fazia com o comando WriteLn s� que em vez disso voc� ir� utilizar SendDATA + #1013 para poder pular a linha e retornar o carro da impressora.

Ex:

prn : TCharPrinter;
Begin
  if PrintDialog1.Execute then
  begin
    Prn := TCharPrinter.Create;
    Prn.OpenDoc(�Titulo do documento�);
    //Caracteres tamanho 12cpi
    prn.SendData(2777 + �TESTE� + 13+10);
    //Ejeta folha
    prn.SendData(12);
  end;
end;

Mais como eu disse eu n�o testei ainda esse m�todo, outra forma seria utilizar a outra classe que se encontra na Unit a �TAdvancedPrinter� que ainda n�o a utilizei tamb�m mais acredito que a utiliza��o da mesma seja semelhante a classe �TCharPrinter�.
Assim que possivel (conseguir um impressora para testes) eu irei testar.

Caso tu consiga algum progresso coloca aqui no t�pico.

Atenciosamente
Vitor Ara�jo Alc�ntara.

Dominioararangua · Answer

OKmuito obrigado pela aten��oSe tiver algum progresso posto aqui na lista...T+...

Vitor Alcantara · Answer

Outro exemplo:[code:1:36b139da78]procedure TForm1.Button1Click(Sender: TObject);var  prn : TAdvancedPrinter;begin  if PrintDialog1.Execute then  begin    prn := TAdvancedPrinter.Create;    prn.OpenDoc(�NOrmal�);//Imprime fonte normal    prn.FontSize := pfs20cpi;//Troca fonte para tamanho 20    prn.WriteRight(�Normal�,� �,40);//Alinhado a direita sendo que a bobina tem 40 caracteres    prn.Write(�Fonte 20cpi�);    prn.CRLF;//Volta carro e pula linha    prn.FontSize := pfs10cpi;//Troca fonte para tamanho 10    prn.Write(�Fonte 10cpi�);    prn.CRLF;    prn.FontSize :=  pfs5cpi;//Troca fonte para tamnho 5    prn.TextStyle := &#91;psBold&93;;//Coloca em negrito    prn.Write(�Fonte 5cpi em negbrito�);    prn.CRLF;    prn.WriteRepeat(��,40);//Escreve     prn.FF;//Salta p�gina    prn.CloseDoc;  end;end;[/code:1:36b139da78]...

F�rum Impressao direta em rede com windows xp #343482