printer sum

[lamaboy20]

Hi all!
I have an app that lists all printers on a netowrk, then prints the image to all the printers. Does anyone know how to make it so i can select how many times i want the image to print from the printers? Here is the code. Thanks!

Private Sub Command1_Click()
 Dim P As Printer
  
  For Each P In Printers
   List1.AddItem P.DeviceName
  Next P
  
End Sub
 
 
Private Sub Command2_Click()
 Dim P As Printer
  
  'Print image to all.
  For Each P In Printers
    Set Printer = P
    With Printer
      Call Printer.PaintPicture(Picture1.Image, 100, 100)
    End With
  Next P
End Sub
()

[MartinLiss]

Printer.Copies = 5