Printknap HJÆLP!

Lidt inspiration:

Private Sub CommandButton1_Click()
Dim Iprint As String
    Iprint = InputBox("hvilket ark skal printes?", , 0, 100, 100)
   
    If Iprint = "1" Then
        Sheets("Ark1").Activate
        Sheets("Ark1").PrintOut Copies:=1, Collate:=True
    End If
   
    If Iprint = "2" Then
        Sheets("Ark2").Activate
        Sheets("Ark2").PrintOut Copies:=1, Collate:=True
    End If
End Sub

Dim Iprint As String
Iprint = InputBox("hvilket ark skal printes?", , 0, 100, 100)

Sheets(Iprint).PrintOut Copies:=1, Collate:=True

eller
Worksheets("Ark" & Iprint).PrintOut Copies:=1, Collate:=True

Hvis jeg bruger:

Private Sub CommandButton1_Click()
Dim Iprint As String
    Iprint = InputBox("hvilket ark skal printes?", , 0, 100, 100)
   
    If Iprint = "1" Then
        Sheets("Ark1").Activate
        Sheets("Ark1").PrintOut Copies:=1, Collate:=True
    End If
   
    If Iprint = "2" Then
        Sheets("Ark2").Activate
        Sheets("Ark2").PrintOut Copies:=1, Collate:=True
    End If
End Sub

Så fungere det stadig ikk hvis jeg skriver værdien 2, så den skal printe ark 2, den går bare til ark'et og printer ikke siden...?

Husk at der skal være noget på arket, for at den vil printe.