www.hilf-los.de

hallo zusammen,

ich habe zum drucken auf verschiedenen Druckern/Faxdrucker/PDF-Drucker Makros erstellt, die einwandfrei funktionieren. Das einzig Störende, da ich die Makros in verschiedenen Formularen verwende, öffnet sich bei jedem Starten eines Makros das Dokument, in dem ich sie erstellt habe. Kann ich das irgendwie verhindern?

Daaaanke,
Juergen

Hallo,
nicht das du denkst es antwortet dir keiner, aber ich habe überhapt keine Idee dazu...
Das einzig was mir einfällt, das Teil einmal mit einem normalen Texeditor zu öffen, ob und wie sich noch irgendwo irgendwelcher "Code" versteckt.


Gruß Columbus

ne, war mir schon bewusst, das es ev. schwierig werden könnte, da in unserer Firma unser Computerexperte auch keine Antwort wusste.
Aber manchmal weiß ja jemand einen ganz kleinen einfachen Trick, um sowas zu lösen.
Trotzdem danke für deine Antwort, werde mal den Editor versuchen.

Gruß
Juergen

Hallo,

kannst du das makro mal uploade´n .

schaue mir es dann mal an.

Gruß Andy
Ps. mit ( WinRAR ) einpacken

sorry, hat kurz gedauert, aber hier der Text:
Sub Fax()
'
' Fax Makro
' Makro am 18.04.2008 von xxxxx aufgezeichnet
'
' Tastenkombination: Strg+f
'
Application.ActivePrinter = "C3000 Fax auf Ne03:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"C3000 Fax auf Ne03:", Collate:=True

ActivePrinter = "HPBIJ1000-KB-N1 auf Ne02:"

End Sub

und hier als rar:Makro

Danke für die Mühe

Juergen

Hallo,

kannst du das in deinem makro mal ändern ( Modul5 auch )

Code: Alles auswählen

Sub Fax()
'
' Fax Makro
' Makro am 18.04.2008 von xxxxx aufgezeichnet
'
' Tastenkombination: Strg+f
'
Application.ActivePrinter = "C3000 Fax auf Ne03:"
ActiveDocument.PrintOut Copies:=1, ActivePrinter:= _
"C3000 Fax auf Ne03:", Collate:=True

ActivePrinter = "HPBIJ1000-KB-N1 auf Ne02:"

End Sub

wenn du den "SelectedSheets" brauchst, nimm das hier

Code: Alles auswählen

Sub Fax()
'
' Fax Makro
' Makro am 18.04.2008 von xxxxx aufgezeichnet
'
' Tastenkombination: Strg+f
'
Application.ActivePrinter = "C3000 Fax auf Ne03:"
ActiveDocument.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"C3000 Fax auf Ne03:", Collate:=True

ActivePrinter = "HPBIJ1000-KB-N1 auf Ne02:"

End Sub

Gruß Andy
PS. änderung - ActiveWindow in ActiveDocument

sorry, das ich erst jetzt antworte - ich hatte diesen beitrag in meine entwürfe gespeichert und nicht abgesendet.

Hallo,

kleiner nachtrag: ( sicherungskopien machen !! )

denke das das makro so auch funkt

Code: Alles auswählen

Sub Fax()
'
' Fax Makro
' Makro am 18.04.2008 von xxxxx aufgezeichnet
'
' Tastenkombination: Strg+f
'
Application.ActivePrinter = "C3000 Fax auf Ne03:"
ActiveDocument.SelectedSheets.PrintOut Copies:=1
ActivePrinter = "HPBIJ1000-KB-N1 auf Ne02:"

End Sub

des weiteren sollte man eine andere tastenkombination wählen da strg+f ja für die suche bestimmt ist.

Gruß Andy
Ps. vielleicht funken ja auch alle drei

Hallo Andy,

danke für deine Idee, habe alle getestet, hat leider nicht geklappt.
Habe jedesmal gespeichert, Excel beendet und neu gestartet,
nach Start des Makros aber jedesmal die Debug-Meldung.

Komisch ist auch, das in Word die Makros nicht das Öffnen der Datei
bewirken, in der die Makros aufgezeichnet wurden.

Da ist mir aufgefallen, das die Idee mit dem Dokument drucken in Excel wohl
nicht richtig ist, weil ich ja nur das aktive Tabellenblatt drucke.
Deswegen könnte das mit dem Window schon richtig sein und
das Öffnen der Datei eine andere Ursache haben.

Trotzdem danke für deine Mühe
und ein Lob an dieses Forum

Gruß Juergen