안녕하세요...
일단 동적으로 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는 인쇄되는데 캡쳐한 이미지가 인쇄되지 않아요...
고수님들 제발좀 도와주세요.....