VB 打印图片的问题

我想打印一张图片，打印前可以预览，代码如下：
Private Sub Command1_Click()
　CmnDlg1.ShowPrinter
  Printer.PaintPicture Picture3.Picture, 0, 0, -Picture3.Width, 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Picture3.Height
  Printer.EndDoc
End Sub问题是：
　　　可以打印出图片，但是打印预览却没有。
　　　是不是＂CmnDlg1.ShowPrinter＂没有被调用呢？
　　　大侠们，帮我看看是什么问题。

解决方案 »

  1.   

    用active report控件：
    http://topic.csdn.net/u/20080822/13/552b6569-f63a-4d6f-86f0-30462e3c7610.html
      

  2.   

    打印预览需要自己做或利用第三方控件(如ActiveReports等报表控件),我之前做的一个管理系统的打印预览就是自己弄的
      

  3.   

    "ComonDialog1.ShowPrinter" 用这个为什么不可以呀？
      

  4.   

    active report控件怎么用．需要安装吗？
    我用下边的代码：
      Dim ar As New ActiveReport1
      Picture3.AutoRedraw = True
      ar.Image1 = Picture3.Image
      ar.Show
    运行之后，＂Dim ar As New ActiveReport1＂　，报错：
    user-defined type not defined.为什么呢？
    　
      

  5.   

    active report控件需要安装了才会有
      

  6.   

    在百度或狗狗里探索ActiveReports安装包下载安装即可
      

  7.   

    好人做到底,送佛送到西
    以下是下载ActiveReports安装包的地址:
    http://119.147.41.16/down?cid=B9D4881083E08E7A5080B23A576A7E4816A77DBA&t=2&fmt=
    里面有一个.exe的安装包和.reg的注册文件,先安装.exe安装包,然后再运行.reg即安装成功!
    打开VB,在菜单"工程"里,添加该报表即可
      

  8.   

    可以新建一个窗体用来做打印预览啊，将Picture3.Picture复制到新窗体中。
    word的打印预览也是一个新窗口
      

  9.   


    8楼的,我下载了一个安装文件夹,安装之后,在"project(工程)"里,选择哪里一项,进行添加呀? 
    我选择的是倒数第三项的"reference...(引用)",添加之后, 依然抱错: ＂Dim ar As New ActiveReport1＂　，报错： 
    user-defined type not defined.