- function DirectToPrinter(S: String; NextLine: Boolean): Boolean;
- type
- TPrnBuffRec = Record
- BuffLength: Word;
- Buffer: Array[0..255] of Char;
- end;
- 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.Buffer,S);
- Buff.BuffLength:=StrLen(Buff.Buffer);
- Printer.BeginDoc;
- Result:=Escape(Printer.Canvas.Handle,PASSTHROUGH,0,@Buff,nil)>0;
- Printer.EndDoc;
- end else
- Result:=False;
- end;