Aantal printout

[monty1a]

Hallo allemaal,

Ik zit met een vraag over printout.

Ik heb met een macro een aantal print opdrachten.

Sub Mapafdrukken_Klikken()
Sheets("Map").Visible = True
Worksheets("Map").PrintOut Copies:=2, Collate _
        :=True, IgnorePrintAreas:=False
Sheets("Map").Visible = False
Sheets("ARB_VEIL").Visible = True
Worksheets("ARB_VEIL").PrintOut Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
Sheets("ARB_VEIL").Visible = False
Sheets("Projectoverdracht").Visible = True
Worksheets("Projectoverdracht").PrintOut Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
Sheets("Projectoverdracht").Visible = False
Sheets("Opdrcheck").Select
End Sub

Deze werkt in principe goed.
Ik heb de macro knop op het tabblad Opdrcheck staan.
Nu wil ik eigenlijk dat het aantal ARB_VEIL copies is gekoppeld aan cel N4 op Opdrcheck. Dit kan ook 0 zijn en dan moet er natuurlijk niets worden afgedrukt.

Hopelijk is dit redelijk makkelijk realiseerbaar.

Alvast bedankt

 

[edmoor]

Zo?

If Sheets("Opdrcheck").Range("N4") > 0 Then
    Worksheets("ARB_VEIL").PrintOut Copies:=Sheets("Opdrcheck").Range("N4"), Collate:=True, IgnorePrintAreas:=False
End If

 

[monty1a]

Super,

Dank je wel