Diagramm in Datei drucken mit Kopf und Fußzeile

Sub GrafikDatei()
ActiveWorkbook.ActiveChart.Export FileName:=ThisWorkbook.Path_
& "\" & ActiveChart.Name & ".jpeg", Filtername:="jpeg"
End Sub

... aber: wenn ich die Druckvorschaufunktion wähle, könnte ich auch eine Kopf- und Fußzeile mit definieren und die Buttons der Steuerung sind dann auch nicht in der JPG-Datei. Nun zur Frage:
kann man die folgende Zeile abändern damit das Programm sofort den Ausdruck in eine JPG-Datei umleitet?

Sub GrafikDruck()
ActiveWorkbook.ActiveChart.PrintPreview
End Sub

Viele Dank

Stefan