Printing

[Darren Smith]

I`ve set this up to print multiple pages but only 1 gets printed?? See code below

Private Sub Print_Job_Card_Click()


Dim i As Long, c As Long
Dim SheetArray() As String

With Me.Print_Listbox
For i = 0 To .ListCount - 1
If .Selected(i) Then
ReDim Preserve SheetArray(c)
SheetArray(c) = .List(i)
c = c = 1

End If

Next i

End With

Sheets(SheetArray()).PrintOut

End Sub
Private Sub

 

[Candyman8019]

C=C=1...possibly change to C=C+1 to increment your sheet.

 

[Darren Smith]

C=C=1...possibly change to C=C+1 to increment your sheet.

Thanks for that your right