impression etiquettes

Sub aa()
MsgBox Application.WorksheetFunction.RoundUp(62 / 4, 0)
End Sub

'/// Liste des arguments xlDialogPrint ///
'range_num
'from
'to
'copies   'le 4ème argument qui vous intéresse
'draft
'preview
'print_what
'color, feed
'quality
'y_resolution
'selection
'printer_text
'print_to_file
'collate

Sub aa()
Application.Dialogs(xlDialogPrint).Show , , , 17
End Sub

Const FEUILLE_A_IMPRIMER As String = "Trame Etiquette"  'à adapter

Private Sub CommandButton1_Click()
Dim nbCopies&

nbCopies& = Application.WorksheetFunction.RoundUp(Range("D11") / 4, 0)
If nbCopies& = 0 Then Exit Sub
Sheets(FEUILLE_A_IMPRIMER).Activate

'/// Liste des arguments xlDialogPrint ///
'range_num
'from
'to
'copies   'le 4ème argument qui vous intéresse
'draft
'preview
'print_what
'color, feed
'quality
'y_resolution
'selection
'printer_text
'print_to_file
'collate
Application.Dialogs(xlDialogPrint).Show , , , nbCopies&
End Sub