Eine kleine Delphi-Routine zum Drucken von Überweisungsträgern

Die beigefügte Delphi - Routine druckt Überweisungsbelege auf den Vordruck - Nr. 951241 der Firma Goldstein aus Berlin.

Mit den Parametern xstart und ystart kann man die Lage des Ausdrucks an das jeweilige Ausgabegerät anpassen. Die Werte sollte man für den Anwender abspeicherbar machen und dienen hier nur zur Demonstration. Mit  Printer.Orientation := poLandscape dreht man den Ausdruck um 90 Grad auf das benötigte Querformat.

begin
// Werte zum Verschieben des Druckbildes
xstart:=0;
ystart:=-10;
printer.Title:='BCS Konto';
  Printer.Orientation := poLandscape;
  Printer.beginDoc;
  printer.Canvas.font.name:='Arial';
  printer.Canvas.font.Size:=12;
  printer.Canvas.TextOut(xstart+60,ystart+30,'Name der Bank');
  printer.Canvas.TextOut(xstart+800,ystart+30,'Bankleitzahl');
  printer.Canvas.TextOut(xstart+60,ystart+190,'Name des Empfängers in Worten');
  printer.Canvas.TextOut(xstart+60,ystart+290,'Kontonummer');
  printer.Canvas.TextOut(xstart+1180,ystart+290,'Bankleitzahl');
  printer.Canvas.TextOut(xstart+60,ystart+390,'Name der Bank des Empfängers');
  printer.Canvas.TextOut(xstart+950,ystart+490,'Betrag in €');
  printer.Canvas.TextOut(xstart+60,ystart+590,'Verwendungszweck 1');
  printer.Canvas.TextOut(xstart+60,ystart+690,'Verwendungszweck 2');
  printer.Canvas.TextOut(xstart+60,ystart+790,'Name des Kontoinhabers');
  printer.Canvas.TextOut(xstart+60,ystart+890,'Kontonummer');
  printer.Canvas.TextOut(xstart+700,ystart+1070,'Datum');
  printer.EndDoc;
end;
 

Hinweise: Die hier angegebenen Schrittweiten bzw. Formularkoordinaten beziehen sich auf eine Druckerauflösung von 300 dpi, welche für den Druck von Überweisungsträgern völlig ausreichend ist. Wenn Sie aus diesem Programm-Skelett eine Anwendung bauen wollen, sollte eine Überprüfung der Druckerauflösung nicht fehlen. Bei 600 dpi sollten Sie alle Abstände mit "2" multiplizieren.