Hola zammen,
Ich arbeite mit einer Excel- Arbeitsmappe, welche mir mit Hilfe von Makros verschiedene Excel- Listen ausdruckt, jedoch bei der Verarbeitung der Word- Dateien immer mit einer Fehlermeldung kommt und nichts druckt.
Bis jetzt schaut das ganze bei mir so aus:
Sub Druck_Cashier_DailySafeMovement()
Dim wb As Object
Set wb = GetObject(„G:\Forum\Empfang\Night-Shift\Vorlagen\Daily Safe Movement.xls“)
wb.Worksheets(1).PrintOut
Set wb = GetObject(„G:\Forum\Empfang\Night-Shift\Schlüsselbuch.docx“)
wb.Worksheets(1).PrintOut
End Sub
Wer kann helfen?
Danke im Voraus
Hola zammen,
Hej nachtschwärmer,
Sub Druck_Cashier_DailySafeMovement()
Dim wb As Object
Set wb =
GetObject(„G:\Forum\Empfang\Night-Shift\Vorlagen\Daily Safe
Movement.xls“)
wb.Worksheets(1).PrintOut
Set wb = GetObject(„G:\Forum\Empfang\Night-Shift\Schlüsselbuch.docx“)
danach musst du Word sichtbar machen:
wb.Parent.Visible = True
wb.Worksheets(1).PrintOut
Bei Word gibt es keine Worksheets. Lass das
Worksheets(1)
weg.
End Sub
Wer kann helfen?
Danke im Voraus
Bitte, Gruß und Frohe Rest-Weihnachten,
Andreas
Hallo Nachtschwärmer,
wenn der Druck des Word-Dokuments automatisch starten soll:
Application.DisplayAlerts = False
Set wb = CreateObject(„Word.Application“)
wb.DisplayAlerts = wdAlertsNone
wb.Documents.Open Filename:=„D:\temp\test.doc“
wb.ActiveDocument.PrintOut
wb.Quit
Set wb = Nothing
Application.DisplayAlerts = True
Gruß,
Max