Function Hardcopy

Function Hardcopy

Hallo,
ich hab einen Code, wieso funktioniert es nicht?
Ich kriege keinen Fehler und kein Bild :confused: Hilfe!!!
VBA Code:
Private Sub HardcopyButton_Click()
Dim zPRJ As Project
Set zPRJ = ApplicationED.Projects.Item(cmbProjects.ListIndex)
zPRJ.DynPictures.Item("test1").Hardcopy "test1", tpBMP
End Sub


This is a migrated post! Originally posted on 17.02.2009 by user alice18. Please be aware that information can be outdated.