udskriftsvindue andet ark

detalje
Ark 2 er skjult

Du kan ikke udskrive fra et skjult ark, så du er nokt til at lave noget kode, mske på BweforePrint hændelsen, der viser skjulte ark, udskriver og så skjuler arket igen.

Synes jeg har fået det her til at virke

Sub udskriv_simpel()
'
    Sheets("Udskriv_simpel").Visible = True
    Sheets("Udskriv_simpel").Select
    ActiveSheet.PrintPreview

    ActiveWindow.SelectedSheets.Visible = False   
    Sheets("1.forkalkulation").Select
    Range("A1").Select
End Sub

Fint hvis det virker :-)