PrintPreview control

This is the main object of the component.

To have print preview in a program you need to do these simple steps:

Add the necessary code to replace the Printer object to a bas module:

Public Property Get Printer() As Printer
    Set Printer = BSPrinter.PrinterReplacement
End Property

Public Property Set Printer(nPrinter As Printer)
    Set BSPrinter.PrinterReplacement = nPrinter
End Property

Private Sub PrintPreview1_PrepareReport(Cancel As Boolean)
    MyPrintingProcedure
End Sub

Private Sub MyPrintingProcedure()
    Printer.Print "Hello Word"
    ' continue with the printing code
End Sub

Private Sub Command1_Click()
    PrintPreview1.ShowPreview
End Sub

Properties

Methods

Events