Woran kann das liegen?
Sub drucken()
Dateiname1 = ThisWorkbook.Path & Application.PathSeparator & "diagramm1.gif"
Dateiname1.PrintOut
End Sub
Sub drucken()
Dateiname1 = ThisWorkbook.Path & Application.PathSeparator & "diagramm1.gif"
Dateiname1.PrintOut
End Sub