在vb中调用excel实现打印图片的问题，事情很急，敬请高手赐教

用vb做了个插件，在vb中调用excel的打印功能，其中有段打印图片的代码(利用宏得到的代码)，如下：
Range("A3").Select
ActiveSheet.Pictures.Insert("D:\...\113.bmp").Select
Range("A3:B5").Merge
用了上面这段代码来向Excel中插入图片，最后调用Excel的打印功能打印此文件。可是测试时，有时可以将此图片打印出来，有时又打印不出来，都不知道哪里出了问题。很急，各位快来帮帮忙啊