심심 님이 쓰신 글 :
: 아래 질문올렸던 심심인데요... 프린트를 해보려고요..
:  ScoreImage->Picture->LoadFromFile(BaseDir+"\\image.GIF");
:  TPrinter *printer=Printer();
:  printer->BeginDoc();
:  printer->Canvas->Draw(1,1,ScoreImage->Picture->Bitmap);
:  printer->EndDoc();
:  delete printer;
: 버튼 클릭했을때 위처럼 했거든요... 근데 프린터가 종이한장을 마치 인쇄할듯이 했다가 그냥 다시 종이만 나와요.. 아무것도 인쇄 안된채요... 알려주세요.... 제발요...............................

안녕하세요

한꼬맹이 입니다.

이렇게 한번 고쳐보세요...
 
  int ScaleX, ScaleY;
  TRect R;

  ScoreImage->Picture->LoadFromFile(BaseDir+"\\image.GIF");
  Printer()->BeginDoc();
  try{
    ScaleX = GetDeviceCaps(Printer()->Handle, LOGPIXELSX) / PixelsPerInch;
    ScaleY = GetDeviceCaps(Printer()->Handle, LOGPIXELSY) / PixelsPerInch;
    R = Rect(0, 0, Image1->Picture->Width * ScaleX, Image1->Picture->Height * ScaleY);
    Printer()->Canvas->StretchDraw(R, Image1->Picture->Graphic);
  }
  __finally
  {
    Printer()->EndDoc();
  }

그럼 참고하세요....