Nur Legende statt kompl. Diagramm wird gedruckt
27.11.2003 10:42:23
Benni
ich versuche aus einer Userform heraus ein Chart zu drucken, jedoch druckt Excel immer nur die Legende und schiebt diese an den oberen Bildschirmrand! WIESO?HIIILFE!
Hier der Code:
Private Sub cmd98_click()
Dim drucker As Boolean
Me.Hide
Charts("abrufdiagramm").Activate
ActiveWorkbook.Charts("abrufdiagramm").PageSetup.ChartSize = xlFullPage
druckerstd = Application.ActivePrinter
drucker = Application.Dialogs(xlDialogPrinterSetup).Show
If drucker = True Then ActiveChart.PrintOut
Application.ActivePrinter = druckerstd
Me.Show
End Sub
Ich verzweifle fast, danke im Voraus!
MfG Benni
Anzeige