Class: PrintDialog in Category Windows : Common Dialogs from Total Visual SourceBook

' Example of CPrintDialog
'
' To use this example, create a new module and paste this code into it.
' Then run the procedure by putting the cursor in the procedure and pressing:
'    F5 to run it, or
'    F8 to step through it line-by-line (see the Debug menu for more options)

Private Sub Example_CPrintDialog()
  ' Comments: Examples of using the CPrintDialog class to control the Windows Print Dialog from VB6 and VBA with 32 and 64 bit Windows API calls.
  '           The Printer dialog is displayed twice. The first with the default settings and the second with customized values.
  '           The dialog doesn't print anything, so feel free to press the OK button.

  Dim clsPrintDialog As CPrintDialog
  Dim intLoop As Integer

  For intLoop = 1 To 2
    Set clsPrintDialog = New CPrintDialog
    If intLoop = 1 Then
      ' Use default settings
    Else
      ' Set flags as desired
      'clsPrintDialog.Flags = priUseDevModeCopies Or priAllPages Or priNoPageNums Or priReturnDC Or priDisablePrintToFile Or priNoSelection

      ' Usually, the selection option is disabled for the print range
      clsPrintDialog.Flags = priNoSelection

      ' Rather than defaulting to All pages, set the default page range
      Call clsPrintDialog.SetPrintRange(2, 5)

      ' Set the number of copies to print if it's more than one
      clsPrintDialog.Copies = 3

      ' Turn on collation option
      clsPrintDialog.Collate = True
    End If

    ' Show dialog and test if OK was selected
    If clsPrintDialog.Show() Then
      ' Show user selections in Immediate Window
      Debug.Print "All Pages: " & clsPrintDialog.All
      If Not clsPrintDialog.All Then
        Debug.Print "From Page: " & clsPrintDialog.FromPage
        Debug.Print "To Page  : " & clsPrintDialog.ToPage
      End If

      Debug.Print "Copies   : " & clsPrintDialog.Copies
      Debug.Print "Collate  : " & clsPrintDialog.Collate
      Debug.Print
    Else
      Debug.Print "Cancel selected"
    End If

    ' Clean up
    Set clsPrintDialog = Nothing
  Next intLoop

End Sub

The source code in Total Visual Sourcebook includes modules and classes for Microsoft Access, Visual Basic 6 (VB6), and Visual Basic for Applications (VBA) developers. Easily add this professionally written, tested, and documented royalty-free code into your applications to simplify your application development efforts.

Total Visual SourceBook is written for the needs of a developer using a source code library covering the many challenges you face. Countless developers over the years have told us they learned some or much of their development skills and tricks from our code. You can too!

Additional Resources

• List of All Modules in Total Visual SourceBook
• List of All Code Categories in Total Visual SourceBook
• Sample Module Code from Total Visual SourceBook (Example of Date, Time and Age Calculations)