先用代码把tif图片放到WORD里面，然后用代码控制打印
如果只想实现简单打印机的话，可以这样： Dim pic As New StdPicture Set pic = LoadPicture("c:\1.gif") Printer.PaintPicture pic, 0, 0 Printer.EndDoc Set pic = Nothing
