클립보드에 이미지를 저장해 놓앗다가 image컴포넌트에 불러와서
print를 하는데 어떤 프린터는 되구 어떤 프린터는 안돼구 하는데
왜 그런 현상이 생기는지 정말 모르겟어영...
print 하는 부분의 소스는
procedure TForm3.Button2Click(Sender: TObject);
Var
ScaleX, ScaleY: Integer;
RR: TRect;
begin
Begin
  With Printer Do
  Begin
     BeginDoc;
     Try
        ScaleX := GetDeviceCaps(Handle, logPixelsX) Div PixelsPerInch;
        ScaleY := GetDeviceCaps(Handle, logPixelsY) Div PixelsPerInch;
        RR := Rect(0, 0, Image1.picture.width * scaleX, image1.Picture.Height * ScaleY);
        Canvas.StretchDraw(RR, Image1.Picture.Graphic);
     Finally
        EndDoc;
     End;
  End;
이거입니다...꼭좀 부탁좀 드릴게영...감사함다..