imprimir en impresora punto de venta

[carlosjimenez]

Hola a todos me gustaria dentro de lo posible que me ayuden con un inconveniente ke tengo kiero imprimir en una impresora punto de venta, antes utilizaba el delphi V y ahora uso 2007 y el componente no es el mismo y no lo tengo si alguien me puede ayudar con eso ya que no puedo utilizar el reporteador para este tipo de impresion

gracias de antemano

[manuc]

Hola Carlos,

Para que te podamos ayudar, tendrías que decirnos qué tipo de impresora tienes (matricial, térmica, etc) y qué tipo de puerto vas a utilizar para imprimir (usb, puerto serie, paralelo, etc).

Un saludo.

[carlosjimenez]

Gracias hermano por atender mi llamado, el puerto paralelo, y la imprera que se utiliza es de la matricial pero de punto de venta(pequeña) por cierto no sabia que habia diferencia para el componente entre matricial y termina, cuando usaba delphi V no importaba si era matricial o termica la impresion salia normal. antes utilizaba un componente llamado dlgimprimir, pero al llevar los programas al delphi2007 no me funciona

[manuc]

Hola Carlos,

De nada hombre, para eso estamos.

Prueba con este código:

Código Delphi [-]
var
  hPrinter: DWord;
  DocInfo: TDocInfo1;
  dwBytesWritten: DWord;
  ImpCuerpo:String;
  impTitulo:String;
  Impresora:String;
begin
  ImpCuerpo := 'Cuerpo a imprimir...';
  Impresora := 'pon aquí el nombre de tu impresora en windows';
  impTitulo := 'Prueba de impresión con RawData';
 
  OpenPrinter(PChar(Impresora), hPrinter, nil);
  DocInfo.pOutputFile:= nil;
  DocInfo.pDatatype:= 'RAW';
  DocInfo.pDocName:= PChar(impTitulo);
  StartDocPrinter(hPrinter, 1, @DocInfo);
  StartPagePrinter(hPrinter);
  WritePrinter(hPrinter, Pointer(ImpCuerpo), Length(ImpCuerpo),    dwBytesWritten);
  EndPagePrinter(hPrinter);
  EndDocPrinter(hPrinter);
  ClosePrinter(hPrinter);

En los uses tienes que insertar WinSpool.

Espero que te ayude.

Un saludo.