Usually it is possible for the program user to set the size of paper for printed output, using the ShowPrinter method of the common dialog control. Unfortunately the common dialog control does not have a 'PaperSize' property.
Is it possible to get the paper size from the CommonDialog control, so it can be used to set Printer.PaperSize?
I.e. How would I replace 'Printer.PaperSize = vbPRPSA4
' in the following code with something that will get the paper size from the common dialog control?
Private Sub Print()
On Error GoTo PrintError
CommonDialog.CancelError = True
CommonDialog.Flags = cdlPDHidePrintToFile + cdlPDSelection
Printer.Orientation = CommonDialog.Orientation
Printer.PaperSize = vbPRPSA4
' Print statements
Select Case Err.Number
'MsgBox "Print cancelled."