안녕하세요 하얀까마귀 입니다.

ㅠㅠ 아마 그 답변 제가 한것 같은데. ㅎㅎ

어케 작업하셧는지 조금이라도 보여주심 더 좋을껄 그랫네요..

어쨌든.. 일단 몇줄 적어볼께요..

procedure ......
var
  fPrn : TPrinter;
  bmpSave : TBitmap;
begin
  // 사전에 프린트 정하고 해야겠죠? 이런건 다 해놓으셧을테고.
  전체적인 구조가 대충...
  fPrn.begindoc;
  try
     출력해야겟죠?....
     그림을 그리시던지 또는 문자를 적던지 해야합니다.
     그럼. fprn.Handle <-- 이놈을 보면 이게 HDC죠? 아하.. 그렇군..
     또는 fprn.Canvas.Handle 도 있네요..
     bmpSave := TBitmap.Create;
     try
        bitblt( bmpsave.canvas.handle........ );
        bmpsave.SavetoFile('아무거나');
     finally
         bmpSave.Free;
     end;
  finally
    fPrn.EndDoc;
  end;
end;

이런식이면 될것 같네요. ㅎㅎ
돌려본건 아니니 참고만 하세요.. 여기서 코딩 몇줄 적자니 무지 힘드네요.