Udskrift macro problem

Hej,

Jeg har fået et lidt underligt problem, nede på mit arbejde.

Jeg har en udskrift macro, som udskriver enden blankt, eller brevpapir ud.

Macroen er den samme på alle 20 computere i huset, mit problem er bare at når der er nogle bestemte personer der opretter et dokument, så får de andre en fejl når de prøver at bruge macroen

Er der nogen der har en forklaring på dette ??

mvh Brian

Koden til macro ser sådan ud:

Sub test()
'
' test Makro
' Makro indspillet 12-10-2004 af Anders Brøndum
'
    ActivePrinter = "\\BECK\HP4000S"
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
End Sub
Sub Side1_2()
'
' Side1_2 Makro
' Makro oprettet 12-10-2004 af Anders Brøndum
'
    ActivePrinter = "kopia"
   
    With ActiveDocument.PageSetup
    '      .LineNumbering.Active = False
'      .Orientation = wdOrientPortrait
'      .TopMargin = CentimetersToPoints(3)
'      .BottomMargin = CentimetersToPoints(3)
'      .LeftMargin = CentimetersToPoints(2)
'      .RightMargin = CentimetersToPoints(2)
'      .Gutter = CentimetersToPoints(0)
'      .HeaderDistance = CentimetersToPoints(1.25)
'      .FooterDistance = CentimetersToPoints(1.25)
'      .PageWidth = CentimetersToPoints(21)
'      .PageHeight = CentimetersToPoints(29.7)
'      .FirstPageTray = 264
'      .OtherPagesTray = 265
        .FirstPageTray = wdPrinterMiddleBin
        .OtherPagesTray = wdPrinterLowerBin
'      .SectionStart = wdSectionNewPage
'      .OddAndEvenPagesHeaderFooter = False
'      .DifferentFirstPageHeaderFooter = True
'      .VerticalAlignment = wdAlignVerticalTop
'      .SuppressEndnotes = False
'      .MirrorMargins = False
    End With
   
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
End Sub
Sub DatoO()
'
' DatoO Makro
' Makro oprettet 12-10-2004 af Anders Brøndum
'
    Selection.InsertDateTime DateTimeFormat:="d. MMMM yyyy", InsertAsField:= _
        True
End Sub
Sub mask(ting, att)
'
' test Makro
' Makro oprettet 7. september 1997 af Ginny Christensen
'
    sp = "Indtast " + ting
    MyValue = InputBox(sp, "Standardbrev", ting)
    If (att = True) And (MyValue = "" Or MyValue = "<att>") Then
        MyValue = ""
        mfinder "Att.:", ""
        ting = "<att>"
    End If
    mfinder ting, MyValue
   
End Sub
Sub mfinder(mfind, merstat)
'
' sletmig Makro
' Makro indspillet 7. september 1997 af Ginny Christensen
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = mfind
        .Replacement.Text = merstat
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Sub Standardbrev()
'
' Standardbrev Makro
' Makro oprettet 12-10-2004 af Anders Brøndum
'
   
    Documents.Add Template:= _
        "u:\ll\setup\stdbrev.DOT", NewTemplate:= _
        False
       
    mask "<Navn>", False
    mask "<Adresse>", False
    mask "<Postby>", False
    mask "<att>", True
    mask "<Jura Nr>", False
    mask "<Vedr>", False
   
'    Selection.MoveUp Unit:=wdScreen, Count:=2
'    Selection.HomeKey Unit:=wdLine
'    Selection.MoveDown Unit:=wdLine, Count:=15

'    Selection.InsertBreak Type:=wdPageBreak
'    Selection.MoveDown Unit:=wdScreen, Count:=6
'    Selection.MoveUp Unit:=wdScreen, Count:=5
'    ActiveWindow.Close
End Sub
Sub HP4000S_Blank()

' HP4000Side1_2 Makro
' Makro indspillet 7. december 1998 af MHL
' Denne makro printer det aktuelle dokument ud på
' HP4000 printeren på side1_2 papir

    ActivePrinter = "kopia"
   
    With ActiveDocument.PageSetup
'      .LineNumbering.Active = False
'      .Orientation = wdOrientPortrait
'      .TopMargin = CentimetersToPoints(3)
'      .BottomMargin = CentimetersToPoints(3)
'      .LeftMargin = CentimetersToPoints(2)
'      .RightMargin = CentimetersToPoints(2)
'      .Gutter = CentimetersToPoints(0)
'      .HeaderDistance = CentimetersToPoints(1.25)
'      .FooterDistance = CentimetersToPoints(1.25)
'      .PageWidth = CentimetersToPoints(21)
'      .PageHeight = CentimetersToPoints(29.7)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
'      .SectionStart = wdSectionNewPage
'      .OddAndEvenPagesHeaderFooter = False
'      .DifferentFirstPageHeaderFooter = True
'      .VerticalAlignment = wdAlignVerticalTop
'      .SuppressEndnotes = False
'      .MirrorMargins = False
    End With
   
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        Collate:=True, Background:=True, PrintToFile:=False
End Sub



Det skal lige siges at macroerne ikke er 100% ens, da de skal bruges på flere forskellige printere.

mvh Brian