skrivning til en printer

Jeg har skrevet en kode, således at der først bliver spurgt efter hvilken kategori (fra 1 til 10) brugeren ønsker at se. Herefter bliver værdierne i den valgte kategori kopieret over i et nyt ark...

Jeg kunne så godt tænke mig at lave en vbyesno funktion der evt samtidigt med oprettelsen, eller bare som en knap i det nye ark, spurgte om vedkommende ønsker at få listen udskrevet.

her er noget af den kode jeg indtil videre har skrevet  --->

Sub Udskriv()
  'def af variabler
Dim kategori As Integer, værdi As Integer

forfra:  kategori = Application.InputBox("Hvilken kategori mellem 0 og 10 ønskes udskrevet?", _
    "Udskriv effektliste", , , , , , 1)
'Application gør at hvis der f.eks. bliver indtastet et tal, vil en messageboks oplyse om dette
'og bede om en ny værdi
        If værdi < 0 Or kategori > 10 Then GoTo forfra
'Hvis værdien er udenfor området dukker inputboksen op igen
Worksheets("database").Select

'så kommer der noget select case kategori

....
....
....
'og til sidst

Sheets.Add
    ActiveSheet.Paste
    ActiveSheet.Name = "effektliste"
end sub


Nu er det så blevet smidt over i arket "effektliste", og så er det at jeg gerne vil tilføje en funktion således at brugeren kan vælge at udskrive listen...