Mall

Villkorlig utskrift av arbetsblad

Här demonstreras en teknik för utskrift av flera arbetsblad med villkor. Förfarandet kan komma till användning när vi arbetar med större arbetsböcker och vi ska skriva ut flera arbetsblad samtidigt.

Option Explicit

Option Base 1

Sub Villkorlig_Utskrift_Arbetsblad()

   '© 2002 Alla rättigheter XL-Dennis

   Dim wbBok As Workbook

   Dim rnCell As Range

   Dim stArray() As String

   Dim i As Long, j As Long

   Set wbBok = ThisWorkbook

   With wbBok

      For i = 1 To .Worksheets.Count

         'Här anges villkoret.

         Set rnCell = .Worksheets(i).Range("F3")

         If rnCell.Value = "Dennis" Then

            j = j + 1

            'De arbetsblad som uppfyller villkoret

            'läggs till en array.

            ReDim Preserve stArray(j)

            stArray(j) = .Worksheets(i).Name

         End If

      Next i

   End With

    wbBok.Worksheets(stArray).PrintOut Copies:=1

    'Vill vi enbart gruppera arbetsbladen kan vi använda oss av

   'följande lösning

   'With wbBok

   '    .Worksheets(stArray).Select

   '    .Worksheets(stArray(1)).Activate

   'End With

End Sub