impresiones de tickets con excel y delphi

[[oscarac]]

pero dime
es necesario (obligatorio) que lo mandes al excel primero antes de imprimir?

pq si te das cuenta... el codigo que te pase saca de ClientDataset los datos a imprimir (tambien podria ser de una tabla o un query)

y lo manda directamente al puerto LPT1 para su impresion

[jofebas]

Bueno, al principio lo hacía para darle un formato al ticket, después me sirvió para guardar un registro de los tickets que se estaban imprimiendo, pero no es obligatorio.

Solo que no sabía otra manera de como imprimir algo.

Lo voy a intentar con lo que me mandaste, pero si se pudiera hacer algo con mi código te lo agradecería.

[[oscarac]]

pues elimina desde

Código Delphi [-]
 
// Abrimos excel
  Excel.Connect;
// Creamos un nuevo libro

hasta abajo y adecua el codigo que te di, lo pruebas y comentas

[jofebas]

lo estoy acomodando luego te digo como quedo.

gracias.

[[oscarac]]

incluso esta linea

Código Delphi [-]
 
Writeln(Impresora,#27+'m');

hace que se active las cuchillas de la ticketera y corte el papel

[jofebas]

asi quedo al final,

muchas gracias. una ultima pregunta, si tengo un aimpresora en red y quiero mandarla ahi, pongo la ip de la imp. donde dice LPT1, o USB, ose solo cambio el nomre del puerto.

es posible.

y muchas gracias.

saludos

Código Delphi [-]
 
procedure TFpuntoventa.ImprimirTicket();
var
  impresora:TextFile;
  vCadena : string;
begin
   with ZQexcel do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from tiket ');
      Open;
    end;
  AssignFile(Impresora, 'LPT1');
  rewrite(Impresora);
  Writeln(Impresora,''+Label15.Caption);
  Writeln(Impresora,''+Label13.Caption);
  Writeln(Impresora,''+Label14.Caption);
  Writeln(Impresora,'Cajero : ' + Label4.Caption);
  Writeln(Impresora,'');
  Writeln(Impresora,'ticket No.'+ Label12.Caption);
  Writeln(Impresora,'');
  Writeln(Impresora,'Fecha :' + Label16.Caption+': '+Label7.Caption);
  Writeln(Impresora,IntToStr(ZQexcel.RecordCount) +' Articulos') ;
  Writeln(Impresora,'');
  with ZQExcel do
  begin
    //i:=9;
    if not IsEmpty then
      begin
        while not Eof do
        begin
          vCadena := ZQExcel.FieldByName('cantidad').AsString + ' ' +
          ZQExcel.FieldByName('ns').AsString + ' ' +
          ZQExcel.FieldByName('descripcion').AsString + ' ' +
          ZQExcel.FieldByName('precio').AsString+ ' ' +
          ZQExcel.FieldByName('total').AsString;
          Writeln(Impresora, vCadena);
          next;
         // i:=i+1;
      end;
    end;
  end;
  Writeln(Impresora,'EFECTIVO: '+Edit3.Text);
  Writeln(Impresora,'');
  Writeln(Impresora,'CAMBIO: '+Edit5.Text);
  Writeln(Impresora,'');
  Writeln(Impresora,'TOTAL: '+Edit4.Text);
  Writeln(Impresora,'');
  Writeln(Impresora,'');
  Writeln(Impresora,'');
  Writeln(Impresora,#27+'m');
  CloseFile(impresora);
end;