현재 폼을 인쇄하고 싶은데요.
이미지 파일로 저장하는 것까지는 어떻게 되는데, 인쇄가 되지를 않는군여..
나름 열심히 찾아보고 있습니다만 쉽지가 않습니다..
고수님들의 도움 바랄께요

<!--CodeS-->

procedure TForm1.Button1Click(Sender: TObject);

var
    Clipboard : TClipboard;
    FormImage: TBitmap;
    ScaleX, ScaleY : Integer;
    R : TRect;

begin


    FormImage := self.GetFormImage;

    try

//        if (self.PrintDialog1.Execute) then
//        begin

           with Printer Do
           begin
                try

                    beginDoc;

                    ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
                    ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;

                    FormImage.SaveToFile('d:\FormImage.bmp');
//                      파일로 저장 확인
                    R:= Rect(80* ScaleX, 0, self.Width * ScaleX + 80 * ScaleX, self.Height * ScaleY);
                    Canvas.StretchDraw(R, FormImage);
//                 Printer.Canvas.StretchDraw(R, FormImage);
//                 이것도 안됨

                finally
                    EndDoc;
                    FormImage.Free;
                end;
            end;
//        end;
    except
       showMessage('Printer init Error!');
    end;
end;

<!--CodeE-->

많은 도움 주세요..꾸벅