Thema Datum  Von Nutzer Rating
Antwort
Rot Bookmarks, Datei drucken und schließen
08.06.2022 17:51:10 Matthias
NotSolved

Ansicht des Beitrags:
Von:
Matthias
Datum:
08.06.2022 17:51:10
Views:
93
Rating: Antwort:
  Ja
Thema:
Bookmarks, Datei drucken und schließen

Guten Tag aus Hannover!

Habe folgendes Problem.

Ich möchte, dass Daten aus excel in word übertragen werden (funktioniert momentan über bookmarks).
Word erstellt also ein neues word dokument und überträgt die Inhalte dort hinein.

Nun soll dieses word Dokument mit den über bookmarks eingefügten Inhalten gedruckt werden und anschleßend geschlossen werden.
Das bekomme ich nicht hin.
Das Makro druckt das aktuell offene Tabellenblatt und wechselt nicht in das neu geöffnete Dokument.

 

___

Sub DruckMassnahmenordner()


Dim Deckblatt_Massnahmenordner As Object
Dim appWord As Object

'erstellt ein neues Dokumet um Daten einzugeben
 Set appWord = CreateObject("Word.Application")

'auf diese Vorlage soll sich das Makro beziehen
Set Deckblatt_Massnahmenordner = appWord.Documents.Add("xxx\DOKUMENTE\Deckblatt_Massnahmenordner.doc")


appWord.Visible = True


'Deckblatt_Massnahmenordner.Activate

'Verknüpft word Bookmark mit Excel Bookmark
Deckblatt_Massnahmenordner.Bookmarks("BeginnL").Range.Text = Range("BeginnL")
Deckblatt_Massnahmenordner.Bookmarks("EndeRSP").Range.Text = Range("EndeRSP")
Deckblatt_Massnahmenordner.Bookmarks("LehrgNr").Range.Text = Range("LehrgNr")
Deckblatt_Massnahmenordner.Bookmarks("LehrgNrRSP").Range.Text = Range("LehrgNrRSP")


' DruckMagazinblanko
Dim strPrinter As String
Const cstrPrinter As String = "\\Hannover auf Ne11:"
strPrinter = Application.ActivePrinter
ActiveSheet.PrintOut From:=1, To:=1, Copies:=1, Preview:=False, _
        ActivePrinter:=cstrPrinter, Collate:=True
Application.ActivePrinter = strPrinter

Set Deckblatt_Massnahmenordner = Nothing
Set appWord = Nothing

End Sub

__

 

Hat jemand eine Idee?
Bin absoluter Neuling... .

 

Mfg

Matthias


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Bookmarks, Datei drucken und schließen
08.06.2022 17:51:10 Matthias
NotSolved