Forum: Object-Pascal / Delphi-Language
Delphi
by bitsetter,
19. Dez 2007
const z= 5; ein bisschen kleiner machen.
Oder sich den Sourcecode von Print ansehen und so abändern, dass das Fenster weiter nach rechts gedruckt wird.
Forum: Object-Pascal / Delphi-Language
Delphi
by bitsetter,
18. Dez 2007
Wenn man es einfach machen möchte so etwa:var
FormImage : TBitmap;
iLeft, iTop: integer;
const z= 8;
begin
iTop:= 10;
iLeft:= 20;
FormImage := GetFormImage;
try
printers.Printer.BeginDoc;
Forum: Object-Pascal / Delphi-Language
Delphi
by bitsetter,
17. Dez 2007
Hallo,
versuche es mal so:procedure TForm1.PrintStringGrid(stringGrid1: TStringGrid; Title: string;
Orientation: TPrinterOrientation);
var
P, I, J, YPos, XPos, HorzSize, VertSize: Integer;
AnzSeiten, Seite, Zeilen, HeaderSize, FooterSize, ZeilenSize, FontHeight: Integer;
mmx, mmy: Extended;
Footer: string;
begin