Fórum impressão em bobina com a impressora lx 300 #366520

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;

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;