impressão em bobina com a impressora lx 300

Delphi

28/11/2008

Olá, gostari de uma ajuda,
tenho um relatório q é impresso em bobina só q qdo chega no tamanho da folha a4 ele para e não termina o relatório, ja criei uma impressora generica e criei o tipo de papel mas mesmo assim não passa daquele tamanho. algume poderia me ajudar.


Julimardaniel

Julimardaniel

Curtidas 0

Respostas

Vitor Alcantara

Vitor Alcantara

28/11/2008

Para impressão em bobina eu aconselho você criar seu relatório no braço mesmo, imprimindo direto na porta, utilizando TextFile ou a unit CharPrinter.

Ex:

Var
  f:TextFile;
begin
  Try
     AssignFile(f,´LPT1´);
     Rewrite(f);
     WriteLn(F,´Linha1 e pula uma linha´);
     Write(F,´Linha 2 e continua na mesma linha´);
     WriteLn(F,´Termina a linha 2 e pula outra linha´);
  Finally
   CloseFile(F);
  End;
end;


Usando a unit CharPrinter.

Var
  Prn:TCharPrinter;
  Dlg : tPrintDialog;
begin
  Try
    Dlg := tPrintDialog.Create(Self);
    Prn := TCharPrinter.Create;
    if Dlg.Execute then
    begin
      Prn.OpenDoc(´Titulo que irá aparecer no spool de impressão´); 
      Prn.SendData(´Linha1 e pula uma linha´ + #1310);
      Prn.SendData(´Linha 2 e continua na mesma linha ´);
      Prn.SendData(´Termina a linha 2 e pula outra linha´+#1310);
      Prn.CloseDoc;
    end;
  Finally
    Dlg.Free;
    Prn.Free;
  End;
end;



GOSTEI 0
Vitor Alcantara

Vitor Alcantara

28/11/2008

Só complementando pra imprimir com uma fonte pequena é bom utilizar a ´draft condensed´ (acho que é assim que se escreve).
Da pra alterar via comando (não me lembro agora o comando), ou no próprio botões do painel da impressora.


GOSTEI 0
T3r3son

T3r3son

28/11/2008

Olá.
Para evitar o stress, adquiri um componente que faz muito bem esse serviço e ainda me possibilita ver um preview.
Pela net afora tem uma versao mais antiga mas recomendo a ultima versao q pode ser encontrada uma trial em www.deltress.com.br
P.S.: Pelo que o componente promete fazer nao custa tao caro assim
[]´s
Evaristo


GOSTEI 0
POSTAR