Forum: Object-Pascal / Delphi-Language
Delphi
by Harry M.,
15. Mär 2007
Jup jetzte passt's. Hätte ich auch von allein drauf kommen müssen :?
Forum: Object-Pascal / Delphi-Language
Delphi
by Harry M.,
15. Mär 2007
So richtig mittig ist es leider irgedwie noch nicht :?
procedure DruckeKleinenBon();
var
iPageWidth, iPageHeight: Cardinal;
iNextLine: Cardinal;
I: Integer;
Text: String;
begin
Printer.PrinterIndex := -1;
Forum: Object-Pascal / Delphi-Language
Delphi
by Harry M.,
15. Mär 2007
mkinzler: Jup das steht bei mir.
DelphiKlaus: ((Printer.PageWidth div 2) - Printer.Canvas.TextWidth(S)) scheint ganz gut zu passen.
Danke
Forum: Object-Pascal / Delphi-Language
Delphi
by Harry M.,
15. Mär 2007
Prinziell hast Du ja recht, nur ändere ich diesen Wert, wird alles links gedruckt. Genau das ist ja das was ich nicht verstehe.
Forum: Object-Pascal / Delphi-Language
Delphi
by Harry M.,
15. Mär 2007
Hallöchen zusammmen,
ich verusche eine Rechnung zu drucken.
Kopf und Fuszeile jeweils mittig, Artikel links und Preis rechts am Rand.
var
iPageWidth, iPageHeight: Cardinal;
iNextLine: Cardinal;
I: Integer;
begin
Printer.Title := 'Titel';