Использование PASSTHROUGH для отправки данных прямо на принтер

{ 
  By using the Windows API Escape() function, 
  your application can pass data directly to the printer. 
  If the printer driver supports the PASSTHROUGH printer escape, 
  you can use the Escape() function and the PASSTHROUGH printer escape 
  to send native printer language codes to the printer driver. 
  If the printer driver does not support the PASSTHROUGH printer escape, 
  you must use the DeviceCapabilities() and ExtDevMode() functions instead. 


  Mit der Windows API Funktion Escape() kann man Daten direkt zum Drucker schicken. 
  Wenn der Drucker Treiber dies nicht unterstutzt, mussen die DeviceCapabilities() 
  und ExtDevMode() Funktionen verwendet werden. 
}

 //  DOS like printing using Passthrough command 
// you should use "printer.begindoc" and "printer.enddoc" 

type

   TPrnBuffRec = record

   bufflength: Word;
   Buff_1: array
[0..255] of
 Char;
 end
;

 function
 DirectToPrinter(S: string
; NextLine: Boolean): Boolean;
 var

    Buff: TPrnBuffRec;
   TestInt: Integer;
 begin

   TestInt := PassThrough;
   if
 Escape(Printer.Handle, QUERYESCSUPPORT, SizeOf(TESTINT), @testint, nil
) > 0 then

   begin

     if
 NextLine then
  S := S + #13 + #10;
     StrPCopy(Buff.Buff_1, S);
     Buff.bufflength := StrLen(Buff.Buff_1);
     Escape(Printer.Canvas.Handle, Passthrough, 0, @buff, nil
);
     Result := True;
   end

   else

     Result := False;
 end
;

 // this code works if the printer supports escape commands 
// you can get special esc codes from printer's manual 

//  example: 
printer.BeginDoc;
 try

   directoprinter('This text ');
 finally

   printer.EndDoc;
 end
;

Другое по теме:

• Escape код PASSTHROUGH
• Вместо печати графики использовать резидентный шрифт принтера
• Вывести все способы подачи бумаги для печати