SftPrintPreview/OCX 1.0 - ActiveX Print Preview Control

PreviewRichEdit Sample (VB.NET)

This sample illustrates using a RichEdit control.

The source code is located at C:\Program Files (x86)\Softelvdm\SftPrintPreview OCX 1.0\Samples\Visual Studio - VB.NET\PreviewRichEdit\Form1.vb or C:\Program Files\Softelvdm\SftPrintPreview OCX 1.0\Samples\Visual Studio - VB.NET\PreviewRichEdit\Form1.vb (on 32-bit Windows versions).

Private Sub MenuExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuExit.Click
    Application.Exit()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    AxSftPrintPreview1.Dock = DockStyle.Fill
    RichTextBox1.Dock = DockStyle.Fill

    RichTextBox1.LoadFile("../SftPrintPreview.rtf")

    ' Connect the richedit control to the print preview control
    AxSftPrintPreview1.ContentProviderCallback(RichTextBox1.Handle.ToInt64(), AxSftPrintPreview1.RenderRichEdit, IntPtr.Zero)

End Sub

Private Sub MenuViewRichEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuViewRichEdit.Click
    ' Show the richedit control
    RichTextBox1.Visible = True
    RichTextBox1.Enabled = True
    RichTextBox1.Width = Me.Width
    RichTextBox1.Height = Me.Height
    RichTextBox1.Focus()
    ' Disable & hide the print preview control
    AxSftPrintPreview1.Visible = False
    AxSftPrintPreview1.Enabled = False
End Sub

Private Sub MenuPrintPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuPrintPreview.Click
    ' Disable & hide the richedit control
    RichTextBox1.Visible = False
    RichTextBox1.Enabled = False
    ' Show the print preview control
    AxSftPrintPreview1.Enabled = True
    AxSftPrintPreview1.Visible = True
    AxSftPrintPreview1.Width = Me.Width
    AxSftPrintPreview1.Height = Me.Height
    AxSftPrintPreview1.Focus()
    ' In case the richedit control changed, we have to reformat everything
    AxSftPrintPreview1.Restart(SftPrintPreviewRestartConstants.restartSftPrintPreviewComplete)
End Sub

Private Sub AxSftPrintPreview1_PageSetupWanted(ByVal sender As Object, ByVal e As System.EventArgs) Handles AxSftPrintPreview1.PageSetupWanted
    AxSftPrintPreview1.PageSetup(0)
End Sub

Private Sub AxSftPrintPreview1_HelpWanted(ByVal sender As Object, ByVal e As AxSftPrintPreviewLib10._ISftPrintPreviewEvents_HelpWantedEvent) Handles AxSftPrintPreview1.HelpWanted
    MessageBox.Show("Sorry, this sample doesn't offer a help file")
End Sub

Private Sub AxSftPrintPreview1_CloseWanted(ByVal sender As Object, ByVal e As System.EventArgs) Handles AxSftPrintPreview1.CloseWanted
    MenuViewRichEdit_Click(Me, New System.EventArgs())
End Sub

Private Sub MenuPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuPrint.Click
    AxSftPrintPreview1.PrintContents(True, 0, False)
End Sub

Private Sub MenuPrintSetup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuPrintSetup.Click
    AxSftPrintPreview1.PrinterSetup(0)
End Sub