Falls das lpszDatatype auch '' sein kann, dann vielleicht so:
Delphi-Quellcode:
Code := AnsiChar(27) + AnsiChar(112) + AnsiChar(0) + AnsiChar(64) + AnsiChar(240);
Printer.PrinterIndex := Printer.Printers.IndexOf('Name deines druckers');
Printer.BeginDoc;
//Printer.NewPage;
WritePrinter(Printer.Handle, PAnsiChar(Code), Length(Code), N);
Printer.EndDoc;