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.