Forum: Sonstige Fragen zu Delphi
by Bummi,
22. Okt 2012
procedure TForm9.BitBtn3Click(Sender: TObject);
begin
if SendEscapeToPrinter('Wie auch immer Dein Drucker heißt','Der Kassenschubladenöffnungssttring aus dem Herstellerhandbuch') then Showmessage('Jetzt sollte die Schublade auf sein ....')
end;
Forum: Sonstige Fragen zu Delphi
by Bummi,
22. Okt 2012
Für die Kassenladen gibt es üblicherweise String welche man per Escape schicken kann
function SendEscapeToPrinter(const PrinterName: String; Const S: AnsiString): Boolean;
type
TPrnBuffRec = record
bufflength: Word;
Buff_1: array of AnsiChar;
end;
var
Buff: TPrnBuffRec;