Udskrift med "underlæggende tekst"

Du indsætter den underlæggende tekst som vandmærke.

Mange af de store printere f.eks Canon GP405, har den funktion du efterlyser, dvs at man kan aktivere et valgfrit vandmærke ved udskrift.
Ellers er det som jimse skriver, sæt et vandmærke på dokumentet før udskriften

gå ind i hjælpen, søg på vandmærke. Her vil du få anvist, hvordan du indsætter eller fjerner et vandmærke

Hvis ikke du vil lægge det ind som Jimse siger, som et vandmærke i en skabelon (f.eks. Normal.dot standard formular), er du nødt til at bruge et ekstra produkt.
Her findes både den mulighed, at du skriver til en fiktiv printer på en server, hvor f.eks. programmet Lasernet fra Graphium ligger. Dette program vil så lægge undertekst på, og sende printet videre til den rigtige printer.
Men en mere sikker løsning er, som Samo07 skriver, at købe nogle SIMM moduler hjem til printeren. Med programmer fra HP/Canon/Lexmark - stor set alle producenter af laserprintere, kan du skabe dine egne skabeloner, der ligger fast i printeren. Der vil da ALTID komme "vandmærke" på udskriften.

I givet fald, skal du nok kontakte producenten af din printer, for at høre nærmere.

Du kunne også lave en makro, der indsætter en tekstboks i sidehovedet. Denne makro kunne så aktiveres via en knap - det er jo ikke altid man vil have fortroligt på sinde dokumenter. Samme knap kunne også bruges til at fjerne tekstboksen igen, hvis dokumentet ikke længere er fortroligt.

Makroen kunne se således ud:

Sub Fortroligt()

' Makro indspillet 23-05-2002 af Richardt Veje Madsen
'

If ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes.Count = 0 Then
    'Åbner sidehovedet
    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
   
    'Indsætter tekstboks
    Selection.HeaderFooter.Shapes.AddTextbox(msoTextOrientationHorizontal, _
        65.7, 40.05, 477#, 549#).Select
    Selection.ShapeRange.TextFrame.TextRange.Select
    Selection.Collapse
    ActiveWindow.ActivePane.VerticalPercentScrolled = 0
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeText Text:="Fortroligt"
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Selection.ShapeRange.Select
    Selection.Font.Size = 48
    Selection.ShapeRange.Fill.Visible = msoFalse
    Selection.ShapeRange.Fill.Transparency = 0#
    Selection.ShapeRange.Line.Weight = 0.75
    Selection.ShapeRange.Line.DashStyle = msoLineSolid
    Selection.ShapeRange.Line.Style = msoLineSingle
    Selection.ShapeRange.Line.Transparency = 0#
    Selection.ShapeRange.Line.Visible = msoFalse
    Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.ShapeRange.Height = 549.05
    Selection.ShapeRange.Width = 477.05
    Selection.ShapeRange.TextFrame.MarginLeft = 7.09
    Selection.ShapeRange.TextFrame.MarginRight = 7.09
    Selection.ShapeRange.TextFrame.MarginTop = 3.69
    Selection.ShapeRange.TextFrame.MarginBottom = 3.69
    Selection.ShapeRange.RelativeHorizontalPosition = _
        wdRelativeHorizontalPositionColumn
    Selection.ShapeRange.RelativeVerticalPosition = _
        wdRelativeVerticalPositionParagraph
    Selection.ShapeRange.Left = CentimetersToPoints(0.32)
    Selection.ShapeRange.Top = CentimetersToPoints(0.16)
    Selection.ShapeRange.LockAnchor = False
    Selection.ShapeRange.WrapFormat.AllowOverlap = True
    Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
    Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0)
    Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0)
    Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32)
    Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32)
    Selection.ShapeRange.WrapFormat.Type = 3
    Selection.ShapeRange.ZOrder 5
   

   
    Else
   
    'Sidehoved slet
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
    ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Or ActiveWindow.ActivePane.View.Type _
        = wdMasterView Then
        ActiveWindow.ActivePane.View.Type = wdPageView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
   
    ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes.SelectAll
    Selection.ShapeRange.Delete
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End If

'Lukker sidehovedet
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

Er meget elegant løsning, der kan bruges ved alle former for udskrift er at benytte FinePrint2000, som foruden "vandmærke" efter eget valg kan en masse andet nyttigt i forbindelse med udskrivning.
Fx faste brevhoveder, udskrift til billedfil o.m.a Læs om det her
www.fineprint.com