Drucken mit Vorschau
30.05.2020 11:22:06
Bastian
ich bräuchte nochmal bitte eure Hilfe.
Ich habe das Arbeitsblatt SM111, auf diesem befindet sich ein Button, mit dem die Druckvorschau eines anderen Arbeitsblattes mit dem Namen Beo111 aufgerufen werden soll.
Dazu habe ich folgenden VBA Code:
Sub Druckenbeo111()
' Druckenbeo111
Sheets("Beo111").Select
Application.CommandBars.ExecuteMso "PrintPreviewAndPrint"
End Sub
Das klappt auch soweit, aber ich möchte nachdem ich dann die Druckeinstellungen vorgenommen und gedruckt habe, automatisch wieder auf das Blatt SM111 zurückkehren.
Dann habe ich folgenden Code versucht, aber das funktioniert nicht. Denn dann wird mir immer _ die Druckvorschau von dem Blatt SM111 angezeigt, was ich aber nicht drucken will.
Sub Druckenbeo111()
' Druckenbeo111
Set CurrentCell = ActiveWindow.ActiveCell
Sheets("Beo111").Select
Application.CommandBars.ExecuteMso "PrintPreviewAndPrint"
Application.Goto CurrentCell
End Sub
Hat vielleicht jemand eine Idee wie es richtig geht? Vielen Dank im Vorraus!