wie kann ich folgendes erreichen:
ich habe auf einer Seite mehrere Graphen, und moechte neben jedem einen Button haben, der bei aktivierung zuerst eine Seitenvorschau auswirft und dann den Graphen druckt..
Vielen Dank fuer Eure Hilfe!!
Linda
Sub erstes_Diagramm
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
range("A1").select
End Sub