Udskrive ark fra excelmappe

Kopier flg. ind i et VBA-modul. Jeg regner med, at du selv kan lave knapperne og knytte dem til makroerne.

'**********
Dim rList As Range
Dim rBcol As Range
Dim rCcol As Range

Sub FindNavne()
'Lister ark-navne i kolonne A
Dim lCount As Long

If Sheets.Count = 0 Then Exit Sub

Set rList = Range(Range("A2"), Range("A2").End(xlDown))
rList.ClearContents

With Sheets
  For lCount = 1 To Sheets.Count
      Range("A1").Offset(lCount, 0).Value = Sheets.Item(lCount).Name
  Next
End With
Set rList = Range(Range("A2"), Range("A2").Offset(Sheets.Count - 1, 0))
Set rBcol = rList.Offset(0, 1)
Set rCcol = rList.Offset(0, 2)
End Sub

Sub PrintB()
'Printer valgte i kolonne B
Dim rCell As Range

FindNavne

For Each rCell In rBcol
  If Len(rCell.Value) > 0 Then
      Sheets.Item(rCell.Offset(0, -1).Value).PrintOut
  End If
Next

Set rCell = Nothing
End Sub

Sub PrintC()
'Printer valgte i kolonne C
Dim rCell As Range

FindNavne

For Each rCell In rCcol
  If Len(rCell.Value) > 0 Then
      Sheets.Item(rCell.Offset(0, -2).Value).PrintOut
  End If
Next

Set rCell = Nothing
End Sub

Glemte i Sub FindNavne at ændre:

With Sheets
  For lCount = 1 To Sheets.Count
      Range("A1").Offset(lCount, 0).Value = Sheets.Item(lCount).Name
  Next
End With

til:

With Sheets
  For lCount = 1 To .Count
      Range("A1").Offset(lCount, 0).Value = .Item(lCount).Name
  Next
End With

Det virker alligevel, men det kunstneriske indtryk og alt det der :-)

Super - virker lige, som jeg ønskede. Lægger du et svar?
Tak for hjælpen

Det var godt ;-)