如何使用列印出image.picture(編號：8407)

我使用了Command Dialog的函數..
程式如下..
CmDialog1.CancelError = True
　　On Error GoTo errhandler
　　CmDialog1.ShowPrinter
　　For i = 1 To CmDialog1.Copies
　　　　Printer.Print ImageBase.Picture
　　Next i
　　Printer.EndDoc
errhandler:
Exit Sub
卻無法列印..
請問高手應如何解決...