如题!

解决方案 »

  1.   

    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPrivate Sub Command1_Click()    ShellExecute 0, "print", "C:\dd.tif", vbNullString, vbNullString, 0
    End Sub
      

  2.   

    不行哒刚才试过了以上实现的是将图片打开并预览,并没能直接打印!我的环境:vb6 + win2003 server
      

  3.   

    用一picturebox控件作为中介啊,
    picture1.picture=loadpicture("c:\xx.tif ")
    picture1.autosize=true
    printer.paintpicture picture1.image,0,0
      

  4.   

    to  laviewpbt:控件picture加载不了tif格式的文件的呀!!!
      

  5.   

    使用imgedit.ocx控件加载tif格式的文件
    然后打印
      

  6.   

    我的环境:vb6 + winxp测试通过
    你的环境中打开.tif文件的默认程序是什么,是不是那个程序不支持打印
    我的是:Microsoft office document Imaging
      

  7.   

    打开.tif文件的默认程序改成“Windows 图片和传真查看器”和“图画”都能运行。
      

  8.   

    to hhjjhjhj:打开.tif文件的默认程序是 "Windows 图片和传真查看器"to  online:imgedit.ocx 从哪获取?我从一个win98 的机子上copy了这文件,可注册不了,郁闷ing
      

  9.   

    引用kodak image edit controlimgedit.ocx 从哪获取,很详细了
    http://hjl.zjhkj.com/
      

  10.   

    如果以上都不行的话,就根据tif的文件格式自己写打印程序
      

  11.   

    我的代码:
    ImgEdit1.Image = App.Path & "\LastReport.tif"
    ImgEdit1.Display        
    MsgBox "ok"
    ImgEdit1.PrintImage运行后,这个时候已经将图片显示出来了
    但在执行到最一句时报错:内存不足
    Unable to print the specified image.
    有什么不对啊???
      

  12.   

    狂晕呀!!!!!!!!!我在程序中用原来的另一种打印方法可以正常打印,也能打印测试页!!!!!!!
    现在执行:ImgEdit1.PrintImage  报错为:内存不足 Unable to print the specified image用 me.PrintForm  报错为:打印机错误真不知道是为什么了!!!   
      

  13.   

    是不是这个控件不“正宗”呀?我的这个是 kodak_ocx_for_xp 
    版本:5.00.2134.1
    大小:300k
    日期:2000
    名称:Imaging for Windows(R)是这个控件吗?我的系统是 win2003
      

  14.   

    kodak_ocx在不同的系统下还有区别试试Win2000下的kodak_ocx