Проблема состоит в том, что независимо от того, что я выбираю, CommonDialog1.Copies равно 1 - даже если по умолчанию ставится 3. Собственно код далее.

Private Sub Кнопка6_Click()
On Error GoTo Err_Кнопка6_Click

Dim strNewFile As String
CommonDialog1.DialogTitle = "Save File"
CommonDialog1.DefaultExt = ".mdb"
CommonDialog1.Filter = "*.mdb"
CommonDialog1.CancelError = True
CommonDialog1.Copies = 3
CommonDialog1.PrinterDefault = True
CommonDialog1.flags = cdlPDAllPages + cdlPDNoWarning + cdlPDReturnDC + cdlPDCollate

CommonDialog1.Min = 1

CommonDialog1.Max = 10
Dim BeginPage, EndPage, NumCopies
CommonDialog1.ShowPrinter

BeginPage = CommonDialog1.FromPage
MsgBox BeginPage
EndPage = CommonDialog1.ToPage
MsgBox EndPage
NumCopies = CommonDialog1.Copies
MsgBox NumCopies



Exit_Кнопка6_Click:
Exit Sub

Err_Кнопка6_Click:
MsgBox Err.Description
Resume Exit_Кнопка6_Click

End Sub