Office: (Office 2010) Textfeldinhalte werden nicht gedruckt und leeren sich

drei1padsvb · 7. Juli 2012

Hallo zusammen,

ich habe folgendes Problem:

Über ein Makro kopiere ich Inhalte einer Exceltabelle und lasse diese in Textfelder eines Worddokuments einfügen.

Möchte ich nun dieses Dokument ausdrucken, werden die Textfelder nicht mitgedruckt. Auch sind die Textfelder nach dem Druck leer.

Unter Datei --> Optionen --> Anzeige muss ich den Haken bei "Felder vor dem Drucken aktualisieren" rausnehmen, damit die Textfeldinhalte mitgedruckt werden.

Da das Worddokument von mehreren Personen genutzt und ausgedruckt werden soll, müsste dieser Schritt jedesmal aufs Neue vorgenommen werden.

Habt ihr eine Idee, wie ich dieses Problem lösen kann?

Vielen Dank und viele Grüße

:)

Gerhard H · 9. Juli 2012

Hallo drei..

es gibt so viele verschiedene Objekte in Word, die Textfelder genannt werden, (aus den Autoformen, aus den Formularen für Vorversionen, aus den Active-X-Steuerelementen, aus den Content-Controls). Du solltest bekannt geben, welche du verwendest.
Und dann wäre noch interessant zu wissen, wie dein Makro diese Textfelder erzeugt / befüllt. Stell also am besten den relevanten Teil deines Codes hier ein, dann steigen deine Chancen auf eine gescheite Antwort beträchtlich ;-)

drei1padsvb · 9. Juli 2012

Oh stimmt. Da fehlen einige Informationen meinerseits *Smilie

Also es handelt sich bei den Textfeldern um Textfelder der Formularsteuerelemente.

Der VBA-Code für die Kopierdurchführung ist folgender:

Code:

Private wdAnw As Object
Private wdDok As Object

Sub WordMitBestehendemDokumentStarten2()

'um die aktuelle Zeile zu ermitteln
i = ActiveCell.Row

Pfad = Cells(1, 1) 'entweder in A1 den Pfad eingeben oder diese Zeile auskommentieren...
' Pfad = "C:\temp\Excel-Word.doc" '...und hier den Pfad eingeben

On Error Resume Next
Set wdAnw = GetObject(, "Word.Application") 'Bestehende Word-Instanz suchen
Select Case Err.Number
Case 0 'Alles paletti
Case 429 'Es gibt soweit keine Word-Instanz
Err.Clear
Set wdAnw = CreateObject("Word.Application") 'Word-Instanz erzeugen
If Err.Number > 0 Then
BadOrHappyEnd Err.Number, Err.Description
Exit Sub
End If
Case Else 'Unerwarteter Fehler
BadOrHappyEnd Err.Number, Err.Description
Exit Sub
End Select
On Error GoTo 0
'
wdAnw.Visible = True 'Instanz sichtbar machen
wdAnw.WindowState = 0
'
'Je nach dem, ob das Dokument bereits geöffnet ist oder nicht wird verbunden
'bzw. geöffnet. Diese Differenzierung geschieht implizit.
On Error Resume Next
Set wdDok = wdAnw.Documents.Open(Filename:=Pfad)
If Err.Number > 0 Then 'Wenn Arbeitsmappe nicht existiert oder unerwarteter Fehler
BadOrHappyEnd Err.Number, Err.Description
Exit Sub
End If
On Error GoTo 0

'hier kommt das eigentliche Eintragen
wdAnw.ActiveDocument.FormFields.Item("Zugesagt").Result = Cells(2, 2)
wdAnw.ActiveDocument.FormFields.Item("Klärung").Result = Cells(3, 2)
wdAnw.ActiveDocument.FormFields.Item("NoInteresse").Result = Cells(4, 2)
wdAnw.ActiveDocument.FormFields.Item("NichtErreicht").Result = Cells(5, 2)
wdAnw.ActiveDocument.FormFields.Item("Termin").Result = Cells(6, 2)
wdAnw.ActiveDocument.FormFields.Item("Nachfass").Result = Cells(7, 2)
wdAnw.ActiveDocument.FormFields.Item("Unterlage").Result = Cells(8, 2)
wdAnw.ActiveDocument.FormFields.Item("CRM").Result = Cells(9, 2)

BadOrHappyEnd Err.Number, Err.Description
End Sub

Private Sub BadOrHappyEnd(rc As Long, fehler As String)
If rc > 0 Then
MsgBox fehler, vbExclamation
End If
Set wdDok = Nothing 'Aufräumen
Set wdAnw = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gerhard H · 9. Juli 2012

Hallo drei...

ich kann das nachvollziehen. Offenbar stellt Word mit der Option Felder aktualisieren vor dem Drucken den Zustand der Felder vor Makrodurchlauf wieder her. Und da waren sie ja leer.

Je nachdem, wie dieses Dokument weiter verwendet werden soll, könntest du probieren: Vor Abschluss des Makros alle Felder sperren:

ActiveDocument.Fields.Locked = True

Oder, wenn die Formfields nur als Textmarken zum Befüllen dienen (also später nicht von einem Anwender weiter bearbeitet werden sollen), könntest du gleich auf "richtige" Textmarken (bookmarks) ausweichen.

Ob das was taugt, hängt natürlich auch davon ab, wie das Dokument weiter verwendet werden soll. Vielleicht kannst

drei1padsvb · 9. Juli 2012

SUPER!

ActiveDocument.Fields.Locked = True ist das optimale für meine Anforderung.

Besten Dank für Deine klasse und schnelle Hilfe!

axel-b · 9. Juli 2013

Hallo zusammen,

ich habe dasselbe Problem, habe allerdings kein Macro, in das ich steuernd eingreifen kann. Ich habe (über Lasche Einfügen -> Button 'Textfeld') ein Textfeld eingefügt und händisch mit Text gefüllt. Dazu eine Farbfüllung mit Effekt.
Nichts davon wird ausgedruckt. Es kommt immer nur ein weißes Blatt aus dem Drucker.
Wo liegt das Problem?

Gruß
Axel

Gerhard H · 9. Juli 2013

Hallo Axel,

dein Problem ist sicher nicht dasselbe, denn oben ist die Rede von Textformularfeldern aus den Entwicklertools > Steuerelemente. Deins ist ein Textfeld aus den Autoformen.

Wenn das nicht gedruckt wird (vermutlich schon in der Druckvorschau nicht?), dann könnte es an folgender Einstellung liegen (Pfadangaben ab Version 2007):

Datei > Optionen > Anzeige > Druckoptionen > In Word erstellte Zeichnungen drucken (muss aktiviert sein).

Wenn das nichts hilft, lade bitte ein Beispieldokument hoch, damit man ein bisschen rumprobieren kann.

Office: (Office 2010) Textfeldinhalte werden nicht gedruckt und leeren sich

Textfeldinhalte werden nicht gedruckt und leeren sich

Textfeldinhalte werden nicht gedruckt und leeren sich

Textfeldinhalte werden nicht gedruckt und leeren sich

Textfeldinhalte werden nicht gedruckt und leeren sich - Similar Threads - Textfeldinhalte gedruckt leeren

Gedruckte Farbe der Kommentarblasen ändern

Bilder werden in falscher Proportion oder Größe gedruckt.

Markierte Excelregister werden nur etappenweise in Pdf gedruckt

Gitternetzlinien werden nicht gedruckt

Moderne Diagramme werden nciht gedruckt.

Textfeldinhalt aus Ufo in anderes Ufo übertragen

Textfeldinhalt soll blinken ?