求打印多种类型文件！急~~~~~100分，解决就给！

Question

功能要求：通过判断文件类型可以打印多种类型文件。
1.doc,xls
2.pdf
3.gif,jpg
4.html
5.tif通过文件类型调用相应代码。
小弟刚学vb，请各位解释的清楚点。

Answer 1

dim 文件类型 as string
文件类型=right(dir(全文件路径全名),3)
Select 文件类型
      case 'doc'
           printer.print "doc"
      case 'pdf'
            ....
      .....
end select

Answer 2

用ShellExecute APIPrivate 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 Me.hwnd, "print", "要打印的文件的路径及名称", vbNullString, vbNullString, 0
End Sub

Answer 3

To: lxcc(虫子|专注于抢分)
谢谢！
若想将各种类型的多个文件在同一页打印出来，该怎么办呢？还有，打印图片时为何将图片显示出来而不打印呢？

Answer 4

若想将各种类型的多个文件在同一页打印出来，该怎么办呢？
//试试各种类型的多个文件都放到Word中,然后...

Answer 5

To: lxcc(虫子|专注于抢分)
怎么放到Word中啊？我刚学vb，不好意思啊，还请赐教！

Answer 6

To: lxcc(虫子|专注于抢分)
功能就是：
已知一些文件路径,比如：C:\1.pdf,C:\8.doc,C:\7.jpg,C:\4.html.
将这些文件一起打印出来。（即如果文件很小，就都打印在一页上）
而不是打印完第一个再打印第二个。不知我说得清楚不。

Answer 7

类型不同比较麻烦!假如图片要用插入图片的方法!假如是pdf需要到PDF中复制然后在Word中粘贴中间可以利用的只能是剪贴板!关键是PDF比较麻烦!其他都能用宏完成!

Answer 8

谢谢 lxcc(虫子|专注于抢分)若不管pdf，该怎么做呢？有没有代码，或以前的帖子阿？

Answer 9

还有，我打印html时，不能将网页中的图片打印出来？急啊，帮帮忙！