Print visible sheets - 1 print each

Hi all.

I have the follwoing code in a macro :

Sub printselected()
    
    Sheets("SELECTIE BLAD").Select
    ActiveWindow.SelectedSheets.Visible = False
    
Dim ws As Worksheet

For Each ws In Sheets

    If ws.Visible Then ws.Select (False)

Next

    Application.Dialogs(xlDialogPrinterSetup).Show
    ActiveWindow.SelectedSheets.PrintOut

    Sheets("SELECTIE BLAD").Activate
    Sheets("SELECTIE BLAD").Visible = True
    
End Sub

If I push the button for this macro the printer prints 7 copies of each sheet.
How can I tell the printer that I only want 1 copy ?

I assume in the line where "printout" is mentioned use a code for number of copies ....
but which code is it ?