в vbs через мастер печати изображений примерно так

'Печать коллекции с мастером печати изображений
Dim CommonDlg, ImgCollection
Set CommonDlg = CreateObject("WIA.CommonDialog")
Set ImgCollection = CreateObject("WIA.Vector")
ImgCollection.Add ("C:\1.jpg")
ImgCollection.Add ("C:\2.gif")
ImgCollection.Add ("C:\3.bmp")
ImgCollection.Add ("C:\4.tiff")
CommonDlg.ShowPhotoPrintingWizard(ImgCollection)

(что бы проверить нужно сохранить строки в файл с расширением vbs ну собственно файлы соответствующие приготовить с указанными путями в скрипте)