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
|