Automatisch Excel als PDF

Hallo Experten,
ich möchte ein Makro welches bei drücken auf einen Button
die Exceldatei unter gleichem Namen in einem bestimmten Pfad
(immer der gleiche Pfad) als PDF abspeichert!
Das ganze ohne Nachfragen :wink:
Ich habe einen VBA-Code unten (aufgezeichnet :wink:.
Damit geht alles automatisch bis zu dem Punkt, an dem man den Pfad
bzw. den Dateinamen eingeben muß. Zwar schlägt er den richtigen Dateinamen vor, aber man muß dann halt noch OK drücken. Da das ganze für Mitarbeiter gestrickt wird die mit Computern wenig zu tun haben (Werkstatt), möchte ich diese Eingabefenster aber möglichst nicht angezeigt bekommen (da Fehlerquelle).

*********************************
Sub Schaltfläche1_BeiKlick()

End Sub
Sub Druck1()

’ Druck1 Makro


Range(„A3“).Select
Application.ActivePrinter = „Acrobat Distiller auf Ne00:“
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
„Acrobat Distiller auf Ne00:“, Collate:=True
End Sub
************************************

Hat da jemand eine IDEE?

Gruß,
Rudolf

Hallo Rudolf,

ich möchte ein Makro welches bei drücken auf einen Button
die Exceldatei unter gleichem Namen in einem bestimmten Pfad
(immer der gleiche Pfad) als PDF abspeichert!
Das ganze ohne Nachfragen :wink:

da das OK bei einem anderen Programm bestätigt werden muß kann die Verwendung von SENDKEYS die Lösung sein. Ich habe im Allgemeinen jedoch schlechte Erfahrungen damit gemacht.

Die Lösung wäre ein externes kleines Programm, das diese Bestätigung automatisch beantwortet:

http://www.google.com/search?hl=de&ie=UTF-8&q=expres…

Grüße aus Essen
Wolfgang