请教抓屏打印两问题

[hongss]

第一，在抓屏打印中，抓好的图片直接打印的话，如果抓全屏或者当前界面Max化，不能打印，但是保存没什么问题，这是怎么回事？

源码：

procedure TForm1.BitBtn4Click(Sender: TObject);
var
  B: TBitmap;
  R: TRect;
  Str: String;
begin
  B:= TBitmap.Create;
  ScreenShot(Left,Top,Width,Height,B);
  Str:= 'D:\XyScreenShot_'+FormatDateTime('yymmddhhnnss',now)+'.BMP';
  B.SaveToFile(Str);
  B.LoadFromFile(Str);

  //图片居中打印，HScale为屏幕、打印机比例，这里也有个问题，就是下边的第二问题
  R.Left:= (Printer.PageHeight-Round(B.Width*HScale)) div 2;
  R.Top:= (Printer.PageWidth-Round(B.Height*HScale)) div 2;
  R.Right:= R.Left+Round(B.Width*HScale);
  R.Bottom:= R.Top+Round(B.Height*HScale);
  try
    Printer.Orientation:= poLandscape;   //横向
    Printer.BeginDoc;
    Printer.Canvas.StretchDraw(R,B);
    Printer.EndDoc;
  except
    Printer.Abort;
    raise;
  end;
  FreeAndNil(B);
end;

第二，就是上边的打印比例问题。

源码：

 //获取当前打印机的分辨率
  Px:=GetDeviceCaps(Printer.Handle,LOGPIXELSX);
  Py:=Trunc(GetDeviceCaps(Printer.Handle,LOGPIXELSY)/2.54);
 //根据打印机和屏幕的分辨率计算出从屏幕转换到打印机的比例
  PSc:=Trunc(GetDeviceCaps(Printer.Handle,LOGPIXELSY)/Screen.PixelsPerInch+0.5);

这里计算出的比例，跟我自己取出Printer.Width等数据计算出的比例不一样，这又是为什么？
如果用这里计算出来的比例，打印出来的图片。。。惨不忍睹啊　

请各位指点下。

[ELWEN123]

假的是

[ELWEN123]

咳，没办法啊

[hongss]

[Quote=引用 53 楼 machh 的回复:]
你抓屏后的全屏数据是放在缓冲区的吧， 这个时候数据是被锁定了的

你可以再构造一个临时内存，将数据拷贝到临时DC，然后打印， 试试。
[/Quote]

这里请教一下，如果抓的不是全屏，而是一个活动窗口的话，抓屏后的数据不是放在缓冲区的吗？

只要不是全屏，抓图后的图像是可以打印、保存的……

[pyb2991385]

不错，又见高手了

[ok123456abc]

又学到东西了

[Dreamtosail鹏]

这个不懂

[hongss]

唉。。。实在不行的话，就用保存、加载、打印的模式算了。。。

明天2010年最后一天了，不把问题留到2011年

[奔雷手]

[Quote=引用 4 楼 hongss 的回复:]
为什么没有2楼呢？
[/Quote]
是的哦

[浩南_哥]

[Quote=引用 78 楼 lch0422 的回复:]

引用 4 楼 hongss 的回复:
为什么没有2楼呢？

是的哦
[/Quote]
被和谐了

[浩南_哥]

[Quote=引用 67 楼 hongss 的回复:]

唉。。。实在不行的话，就用保存、加载、打印的模式算了。。。

明天2010年最后一天了，不把问题留到2011年
[/Quote]
这两天也查了资料还是不知道为啥不能直接打印，很奇怪
这个方法也可以吧 先保存到Stream里 然后再加载打印

[supernhtr]

henhao！！！！谢谢了！！！！

[Codefans_Fan]

哈哈哈。。。。不错

[cmjhappy]

大家互相讨论学习，谢谢分享~！

[officemouse]

深情呼唤高手现身~~~~

[lizhi_625]

大家互相讨论学习，谢谢分享~！

[天才在左疯子在右]

xijiji!

[dungeonsnd]

[tiger_ok1]

学习。。。。

[q358535911]

為什麼不除以 2.54。

[qq15885470562]

我也正想知道