Darren Smith
Well-known Member
- Joined
- Nov 23, 2020
- Messages
- 631
- Office Version
- 2019
- Platform
- Windows
I`ve set this up to print multiple pages but only 1 gets printed?? See code below
VBA Code:
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