Q&A

  • 특정부분 이미지캡쳐후 프린터로 인쇄되지 않습니다...
안녕하세요...
일단 동적으로 Bitmap을 생성하고 폼의 특정부분을 캡쳐후 Bitmap으로 파일을 저장하고요.. 그다음에 QuickRep의 QRImage에 Bitmap 파일을 로드하고요. QuickRep 미리보기후 인쇄하면 인쇄가 되질않습니다....

캡쳐소스는 아래와 같이 했습니다.
---------------------------------------------------------------------
procedure TFrmUT011F.SetPictureSave(Preview: Boolean);
var
  X,Y: Integer;
  DC: HDC;
  WinScr: TBitmap;
  ImageSavePath, Filename: String;
begin
  X := TabSheet1.Left+PanelBox.Left+Panel.Left;
  Y := (FrmUt011F.ClientHeight-Panel.Height)+PanelHeader1.Height-2;
  ImageSavePath := ExtractFilePath(Application.ExeName);
  Filename := 'shape.bmp';

  WinScr := TBitMap.Create;
  WinScr.Width  := Panel.Width;
  WinScr.Height := Panel.Height;
  DC := GetDC(0);
  BitBlt(WinScr.Canvas.Handle, 0, 0, WinScr.Width, WinScr.Height, DC, X, Y, SRCCOPY);
  ReleaseDC(0,DC);
  WinScr.SaveToFile(ImageSavePath+Filename);
  Application.ProcessMessages;
  QRImage1.Picture.Bitmap.LoadFromFile(ImageSavePath+Filename);
  Application.ProcessMessages;

  if Preview = True then
    QuickRep.Preview;

  WinScr.Free;
end;
---------------------------------------------------------------------

참고로 QuickRep에 밴드는 TQRBand로 하고요. 밴드타입은 rbDetail로 했습니다. TQRBand에 QRShape는 인쇄되는데 캡쳐한 이미지가 인쇄되지 않아요...

고수님들 제발좀 도와주세요.....
0  COMMENTS