Calling PageSetupDialog from a PrintPreviewDia log

[ppeterkin]

I customized a PrintPreviewDia log by adding a button to it's toolstrip
that opens up a PageSetupDialog . The problem is changes made to the
page setup are not passed to the PrintPreviewDia log until I close and
reload it.
How do I enable these changes to immediately show up in the print
preview. See Code Below.

Paul

Private Sub ToolStripMenuIt em2_Click(ByVal sender As System.Object,
ByVal e As System.EventArg s) Handles ToolStripMenuIt em2.Click
Dim dlgPrintPreview As New PrintPreviewDia log
Dim PageSetButton As New ToolStripButton

PageSetButton.T oolTipText = "Page Setup"
PageSetButton.T ext = "Setup"
tb = DirectCast(dlgP rintPreview.Con trols(1), ToolStrip)
For i As Integer = 4 To 7
' tbt = tb.Items(i)
' tbt.Visible = False
tb.Items.Remove At(i)
Next
AddHandler PageSetButton.C lick, AddressOf PageSetup
tb.Items.Add(Pa geSetButton)
dlgPrintPreview .Document = PrintDoc
dlgPrintPreview .ShowDialog()
End Sub

Private Sub PageSetup(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles ToolStripMenuIt em1.Click
Try
' show page setup dialog
Dim pageSetupDialog As PageSetupDialog = New
PageSetupDialog ()

pageSetupDialog .PrinterSetting s = PrintDoc.Printe rSettings
pageSetupDialog .PageSettings =
PrintDoc.Defaul tPageSettings

If pageSetupDialog .ShowDialog() =
Windows.Forms.D ialogResult.Can cel Then
Return
End If

' save changes
PrintDoc.Printe rSettings = pageSetupDialog .PrinterSetting s
PrintDoc.Defaul tPageSettings =
pageSetupDialog .PageSettings
Catch ex As Exception
MessageBox.Show (ex.Message)
End Try
End Sub