Kopf- und Fusszeile nicht mitdrucken!!

so, nu hab ich was gefunden wie es geht.

Hallo,

Ich habe mich mal an der Frage versucht. Da mir nicht klar ist ob das Dokument auch gespeichert wird habe ich keine Befehle eingebaut.
Einfach direkt mit mir in Verbindung setzen und dann schauen wir weiter

Code:

Code:
Sub Test_Kopf_fußzeile()
' Erster Versuch für Drucksteuerung
' Erster Teil: Aufrufen der Kopfzeile oder Schliessen wenn offen
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
' Alles makieren
Selection.WholeStory
' Makierung löschen
Selection.Delete Unit:=wdCharacter, Count:=1
' Wechsel zwischen Kopf <-> Fußzeile
If Selection.HeaderFooter.IsHeader = True Then
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Else
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
End If
' Alles makieren
Selection.WholeStory
' Makierung löschen
Selection.Delete Unit:=wdCharacter, Count:=1
' Kopf/Fußzeile verlassen
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub



Hallo axyris,

ich habe mir ein komplettes Makro einfallen lassen das ein temporäres Dokument erzeugt. Ich gebe zu es ist einwenig "durch die Brust ins Auge" aber es funktioniert. Das Marko muss in die Normal.DOT und dann einfach eine Schaltfläche in eine der Symbolleisten. Falls die Fußzeile erhalten bleiben soll einfach mit Hochkomma "ausklammern"


Code:
Sub Test_Kopf_fußzeile()

' Zweiter Versuch für Drucksteuerung
' Erster Teil: neus Dokument erstellun und die Daten einfügen
Selection.WholeStory
Selection.Copy
Documents.Add DocumentType:=wdNewBlankDocument
Selection.PasteAndFormat (wdPasteDefault)

' Zweiter Teil: Aufrufen der Kopfzeile oder Schliessen wenn offen
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

' Alles makieren
Selection.WholeStory

' Makierung löschen
Selection.Delete Unit:=wdCharacter, Count:=1

' Dritter Teil: Wechsel zwischen Kopf <-> Fußzeile
If Selection.HeaderFooter.IsHeader = True Then
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Else
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
End If

' Alles makieren
Selection.WholeStory

' Makierung löschen
Selection.Delete Unit:=wdCharacter, Count:=1
' Vierter Teil:Kopf/Fußzeile verlassen
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

' Fünfter Teil: Drucken
ActiveDocument.PrintOut

' Sechster Teil: Schließen des Bereinigten Dokuments
ActiveWindow.Close (wdDoNotSaveChanges)

End Sub


Ich hoffe es hilft
Gruß
Martin

Nach oben



Hallo axyris,

Erstelle eine Formatvorlage mit dem Namen Unsichtbar und dem Formatvorlagentyp Zeichen.
Dann setze für diese Formatvorlage unter Format - Schriftart den Haken bei Ausgeblendet (nicht verwirren lassen, das ganze gilt auch für Bilder).

Das Ergebnis ist, dass der gesamte mit Unsichtbar formatierte Inhalt (Bilder, Texte, etc.) nicht gedruckt wird.

Wenn du das Makro unten startest wird alles, auch der unsichtbare Teil gedruckt.


Code:
Sub UnsichtbarDrucken()
'
' UnsichtbarDrucken Makro
' Makro zum Drucken von Inhalten der Formatvorlage 'Unsichtbarr'
' Version 1.0
' Erstellt 2204-11-03

With ActiveDocument.Styles("Unsichtbar").Font
.Hidden = False
End With

Dialogs(wdDialogFilePrint).Show

With ActiveDocument.Styles("Unsichtbar").Font
.Hidden = True
End With

End Sub


Viel Spaß damit