Makro print

Det her kan klare hvad du lige beskriver :)

Sub PrintArk()
    ActiveWorkbook.Sheets(Range("A1").Value).Select
    Application.Dialogs(xlDialogPrint).Show
End Sub

Hej


Det ser godt ud.


Tak for hjælpen


Kan jeg tildele dig point ?


MVH

Tony

Her er et svar du kan godkende :)

Du kan jo evt. have en :

ActiveWorkbook.Sheets(1).Select til at stå til sidst, så koden bliver:

Sub PrintArk()
    ActiveWorkbook.Sheets(Range("A1").Value).Select
    Application.Dialogs(xlDialogPrint).Show
    ActiveWorkbook.Sheets(1).Select
End Sub

Så den automatisk går tilbage til det ark man var igang med, efter print.