Hi there

Unsere Location hat gerade auf MS Office 2010 umgestellt, daher funktionieren unsere alten Druck-Makros nicht mehr.

Nun vlt kann mir ja einer helfen.

Hier meine Aufgabe: Ich will das Excel in die Druckereigenschaften geht und z.B die Vorlage Personenwagen, Truck oder was auch immer selektiert. Nun unten füge ich mein Makro an mit "Sendkeys" dieses hat bisher immer sauber funktioniert, mit Offcie 2010 aber leider nicht mehr.

Sub Print ()

SendKeys "%e%z"                                                                            'öffnet das Druckermenü

Application.Dialogs(xlDialogPrint).Show                                     'öffnet die Druckeigenschaften

'______________________________________________________________________
' Bis hier funktioniert alles, also ich finde in die Druckereigenschaften, jedoch tut sich nacher nichts mehr. Ist das wegen der Ladezeit bis die Eigenschaften offen sind?

'_____________________________________________________________________________________________________________________________

SendKeys Vorlage       ' Anfangsbuchstabe der gewünschten Vorlage  z.B "T" für Truck  

SendKeys "{ENTER}"     ' Enter        = Maske verlassen

SendKeys "{TAB 11}"    ' 11 x Tab     = zu "Schliessen" vorrücken     

SendKeys "{ENTER}"     ' Enter        = Maske verlassen

End Sub

Danke für eure Hilfe.

Freundliche Grüsse

Diego