안녕하세요..

아래 코드들이 적절한 참고자료가 될것 같습니다..

아래는 폼의 일부분을 이미지로 저장하는 루틴과 이미지를 출력하는 루틴입니다.

적절히 응용하셔서 즐거운 프로그래밍 하시길~

//폼의 특정부위 (아래예제는 폼위에 판넬크기만큼 캡쳐) 를 이미지로 저장
procedure TForm1.Button1Click(Sender: TObject);
var PnlBmp   : TBitmap;
    PnlCanvas: TCanvas;
    PnlRect  : TRect;
    BmpFileName: String;
begin
  BmpFileName:= ExtractFilePath(Application.ExeName) + 'aaa.bmp';
  with Panel1 do
    PnlRect := Rect(Left, Top, (Left + Width),(Top + Height));

  PnlCanvas := TCanvas.Create;
  PnlBmp := TBitmap.Create;

  try
    PnlCanvas.Handle := GetDC(0);
    PnlBmp.Width := Panel1.Width;
    PnlBmp.Height := Panel1.Height;
    PnlBmp.Canvas.CopyMode := cmSrcCopy;
    PnlBmp.Canvas.CopyRect(Rect(0, 0, Panel1.Width, Panel1.Height), PnlCanvas, PnlRect);

    PnlBmp.SaveToFile(BmpFileName);
finally
   PnlBmp.Free;
   PnlCanvas.Free;
end;
end;


//이미지를 출력
procedure DrawImage(Canvas: TCanvas; DestRect: TRect; ABitmap: TBitmap);
var
Header, Bits: Pointer;
HeaderSize, BitsSize: Integer;
begin
GetDIBSizes(ABitmap.Handle, HeaderSize, BitsSize);
GetMem(Header, HeaderSize);
GetMem(Bits, BitsSize);
try
   GetDIB(ABitmap.Handle, ABitmap.Palette, Header^, Bits^);
   StretchDIBits(Canvas.Handle, DestRect.Left, DestRect.Top,
       DestRect.Right - DestRect.Left, DestRect.Bottom - DestRect.Top,
       0, 0, ABitmap.Width, ABitmap.Height, Bits, TBitmapInfo(Header^),
       DIB_RGB_COLORS, SRCCOPY);
finally
   FreeMem(Header, HeaderSize);
   FreeMem(Bits, BitsSize);
end;
end;

이미지 출력 호출은 다음과 같이... (Left, Top, Right, Bottom 은 인쇄하는 크기)
DrawImage(Printer.Canvas, Rect(Left, Top, Right, Bottom), MyBitmap);

답변 정말정말 감사합니다.

그런데...제 프로그램에 맞게 수정을 해서 출력을 해보니..

실행창의 제가원하는 패널이 출력이 안되고

윈도우전체화면에서 일정한 크기를 캡처해서 출력을 하네요...ㅠㅠ

그리고 그림도 왼쪽위에 쏠려서 작게 나오고요...

이 두가지 문제에 대해서도 좀 알려주세요...

그럼 부탁드립니다.

  PnlCanvas.Handle := GetDC(0);
위 코드를
  PnlCanvas.Handle := GetDC(폼.Handle);
로 바꾸고 테스트 해보세요..

그럼~ 즐거운 프로그래밍하시길~

정말 정말 감사드립니다.

정말 복 받으실꺼에요~~^^