Zellen vom StringGrid drucken

[bitsetter]

Zitat von fuknersascha:

Form7.Print; noch die genaue Position bestimmen z.b 20 Pixel weite nach rechts und vielleicht noch Label1 oben drüber??

Wenn man es einfach machen möchte so etwa:

Delphi-Quellcode:

var
  FormImage : TBitmap;
  iLeft, iTop: integer;
const z= 8;
begin
  iTop:= 10;
  iLeft:= 20;
  FormImage := GetFormImage;
  try
    printers.Printer.BeginDoc;
    SetStretchBltMode(Printer.Canvas.Handle, STRETCH_HALFTONE);
    SetBrushOrgEx(Printer.Canvas.Handle, 0, 0, nil);
    StretchBlt(Printer.Canvas.Handle, iLeft* z, iTop* z, (FormImage.Width+ iLeft)* z, (FormImage.Height+ iTop)* z, FormImage.Canvas.Handle, 0, 0, FormImage.Width, FormImage.Height, SRCCOPY);
    printers.Printer.EndDoc;
  finally
    FormImage.Free;
  end;