我编的打印图片的原码－为何点击打印选择文件后打印机没反应？
CommonDialog1.InitDir = App.Path '默认目录
With CommonDialog1
'
.CancelError = True
.MaxFileSize = 32767 '被打开的文件名尺寸设置为最大，即32K
.Flags = cdlOFNHideReadOnly Or cdlOFNAllowMultiselect Or cdlOFNExplorer
.DialogTitle = "选择文件"

.Filter = "*.jpg|*.jpg|*.bmp|*.bmp|*.jpeg|*.jpeg|*.ico|*.ico|*.icon|*.icon"
.ShowOpen
'

End With

CommonDialog1.ShowPrinter
Printer.EndDoc

请高手指教指教。

[解决办法]
先把图片放到一个PICTUREBOX里面
CommonDialog1.InitDir = App.Path '默认目录
With CommonDialog1
'
.CancelError = True
.MaxFileSize = 32767 '被打开的文件名尺寸设置为最大，即32K
.Flags = cdlOFNHideReadOnly Or cdlOFNAllowMultiselect Or cdlOFNExplorer
.DialogTitle = "选择文件"

.Filter = "*.jpg|*.jpg|*.bmp|*.bmp|*.jpeg|*.jpeg|*.ico|*.ico|*.icon|*.icon"
.ShowOpen
Picture1.Picture=LoadPicture(CommonDialog1.FileName)

如果不想显示出来可以Picture1.Visiable=False
然后用
pirnter.paintpicture Picture1.Picture,0,0