Udskriv 2 eksemplarer

Denne macro kan gøre det:

Sub Macro1()

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .RightHeader = "KOPI"
    End With
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

tak for hjælpen

Sub Macro1()

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .RightHeader = "KOPI"
    End With
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .RightHeader = ""
    End With

End Sub

Så sletter den KOPI efter endt udskrivning