Fehlermeldung nach Ausdruck im docx- Format

Computer: Software & Programmierung Visual Basic
#1

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

#2

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

#3

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