Makro til print af Excel ark i en anden mappe

Er det altid det samme ark i den anden mappe, der skal printes?

Ja og arket ligger i en mappe som andre har adgang til redigering i, men de skal ikke have adgang til arket med Makroen (print knap/ikon)

Ok - har en idé, som jeg prøver senere - måske først i morgen..

Rem VBA i separat fil - "Sub" kan forbindes med en knap eller..
Rem eller aktiveres via Alt + F8
Sub udskrivArkFraPrintes()
Dim prtXLS As Object
Const stiTilPrintes = "C:\Users\peter\Desktop\scania\printes.xlsx"      '<---- tilpasset
   
    Set prtXLS = CreateObject("Excel.Application")
    With prtXLS
        .Workbooks.Open stiTilPrintes
        .Sheets("Ark1").Activate                                        '<---- tilpasses
        .ActiveSheet.PrintOut
        .ActiveWorkbook.Close
        .Application.Quit
    End With
    Set prtXLS = Nothing
End Sub

Jeg kan ikke få den til at køre
Den skriver:
G:\Peter Gøttig\Flyver mappe egen\Pakker efterrmarked\BackUp\01-08-13\2013 08 A-Z checkliste\printes.xlsx blev ikke fundet. Udfør stavekontrol, eller prøv en anden sti
Efter klik OK åbner Visual Basic dialogboks hvor den skriver
Run-time error 1004
Metoden Open for klassen Workbooks mislykkedes
hvis jeg vælger Debug markeres nedenstående med gul

.Workbooks.Open stiTilPrintes

Her er makro jeg har indspillet

Rem VBA i separat fil - "Sub" kan forbindes med en knap eller..
Rem eller aktiveres via Alt + F8
Sub udskrivArkFraPrintes()
Dim prtXLS As Object
Const stiTilPrintes = "G:\Peter Gøttig\Flyver mappe egen\Pakker efterrmarked\BackUp\01-08-13\2013 08 A-Z checkliste\printes.xlsx"
   
    Set prtXLS = CreateObject("Excel.Application")
    With prtXLS
        .Workbooks.Open stiTilPrintes
        .Sheets(List2).Activate
        .ActiveSheet.PrintOut
        .ActiveWorkbook.Close
        .Application.Quit
    End With
    Set prtXLS = Nothing
End Sub

Skal der være 2 r'er i "efterrmarked"?

Så vidt jeg kan se, var det problemet.
Har prøvet med samme sti-opbygning på mit D:\-drev der er ingen fejl.

Ja der skal være to rr i stien, der er en stave fejl i mappenavn.
Kan det være fordi at jeg kører alt via en citrix server, jeg tror det ikke selv men da alle mapper ligger der og hyperlinks kører uden problemer men ??

Ok - vedr. Citrix - mangler svar på det..

OK.
Så er løsningen måske at jeg ligger det ark jeg skal printe ind i samme Excel doc. og herefter "skjuler" print arket.
Kan du hjælpe med makro

Ja - du kan evt. sende filen - så skal jeg prøve.

@-adresse under min profil.

supertekst
Jeg er lige optaget af andre opgaver til mandag, så prøver jeg lige at bakse med det igen.

Ok..

supertekst.
Fil m.v. sendt

Er modtaget - ser på det..

Supertekst.
Det virker, super løsning og tak for hjælpen :-)
Skriver du lige et svar så modtager du point

Selv tak - fint det lykkedes.

Følgende kode blev anvendt:

Sub udskrivArkFraPrintes()
Const filDerPrintes = "FilensNavn.xls" 
Const arkNavn  "arketsNavn"     
Dim wb2 As Workbook
    Workbooks(filDerPrintes).Activate
   
    With ActiveWorkbook
        .Sheets(arkNavn).Activate
        .ActiveSheet.PrintOut
        .Close
    End With
End Sub