Office 2007: Excel 2007 - Makro nur bis zur Öffnung des Druckmenüs

[stefan88]

Guten Tag zusammen,
ich bin neu hier, da ich gefühlt das halbe Internet nach einer Lösung durchsucht habe, und leider nicht fündig geworden bin.
Ich hoffe ihr könnt mir helfen:

Ich habe eine Excel-Datei mit 2 Arbeitsblättern.
Auf dem ersten Arbeitsblatt, dem Deckblatt, habe ich Buttons hinterlegt, die ich mit einem Makro verknüpfen mag.

Dieses Makro soll folgendes leisten:
In das andere Arbeitsblatt gehen
dort gewisse Spalten einblenden, die zuvor ausgeblendet sind
Das Druckmenü öffnen
(den Anwender, an den die Liste geht den Drucker auswählen lassen und auf OK drücken lassen)
Die Spalten wieder ausblenden
Auf das Deckblatt zurückkehren


Ich denke soweit würde ich das alles mit der Makroaufzeichnung hinkriegen denke ich, das Problem ist nur:
1. Wenn ich das Druckmenü geöffnet habe, komme ich nicht auf "Aufzeichnung beenden"
2. Wie kann ich quasi den Zwischenschritt machen, dass der User der die Datei erhält den Drucker auswählen muss und mit OK bestätigen muss? (bzw halt einfach, dass die nächsten Schritte geschehen sobald das Druckmenü geschlossen ist)

Ich danke herzlich!

[Officer]

Hallo Steffan88,

mit diesem Makro solltest Du Deine Anforderung lösen können.

Im Beispiel wird Spalte C ein- und wieder ausgeblendet.

Hier der Code

Code: Visual Basic

1. Sub loesung()
2.  
3. '** Tabelle öffnen
4. ThisWorkbook.Sheets(2).Select
5.  
6. '** Spalte C einblenden
7. ThisWorkbook.Sheets(2).Columns("B:D").Select
8. Columns("C").Hidden = False
9.  
10. '** Druckmenü öffnen
11. Application.Dialogs(xlDialogPrint).Show
12.  
13. '** Spalte C ausblenden
14. ThisWorkbook.Sheets(2).Columns("B:D").Select
15. Columns("C").Hidden = True
16.  
17. '** Deckblatt auswählen
18. ThisWorkbook.Sheets("Deckblatt").Select
19.  
20. End Sub
21.  

Gruß

Officer

[stefan88]

Du bist mein Held.

Danke! Funktioniet einwandfrei, habe deine Zeile
Application.Dialogs(xlDialogPrint).Show
eingefügt, und schwupp läufts.

Merci!