[VB.NET]vb中很容易实现的打印机设置窗口，在vb.net中如何实现？烦恼中！

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
vb中很容易实现的打印机设置窗口，在vb.net中如何实现？烦恼中！
vb中 只要用CommonDialog就可以调出打印机设置窗口，而vb.net中没有这个CommonDialog，想要参照comdlg32.dll，失败！
请问高手在vb.net中如何调出打印机设置窗口？并且能够保存住那些设置值？
要求跟vb中的打印机设置窗口一模一样！
谢谢了哦！
__________________________________________________________________________
PageSetupDialog
PrintDialog
PrintDocument
PrintPreviewControl
PrintPreviewDialog

这些都和打印有关,

你可以通过PageSetupDialog及PrintDialog来做像以前的CommonDialog的功能!
__________________________________________________________________________
PageSetupDialog:是页面设置，虽然里面也有打印机设置，但是要求调出来的直接是打印机设置窗口！
PrintDialog：印刷设定
理由同上！
__________________________________________________________________________
Dim pPrint As New PrintDialog
pPrint.AllowCurrentPage = False
pPrint.AllowPrintToFile = False
pPrint.AllowSelection = False
pPrint.AllowSomePages = False
pDocument.DocumentName = "支票 "
pPrint.Document = pDocument
If pPrint.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim pPreview As New PrintPreviewDialog
pPreview.Document = pDocument
pPreview.ShowDialog()
End If
__________________________________________________________________________
用PrintPreviewControl控件自己做一个Dialog
：）
__________________________________________________________________________
最后是通过重构api函数实现的，谢谢各位啊！
__________________________________________________________________________
Public Function ShowPrinter() As DialogResult ''显示打印机设置窗口
Dim pd As New PrintDialog
Dim eRtn As DialogResult

Try
pd.AllowPrintToFile = False
pd.AllowSelection = False
pd.AllowSomePages = False
pd.Document = _PrtDoc
pd.PrintToFile = False
pd.ShowHelp = False
pd.ShowNetwork = False
eRtn = pd.ShowDialog
If eRtn = DialogResult.OK Then
_PrtSet = pd.PrinterSettings
End If
Catch ex As Exception
eRtn = DialogResult.Cancel
End Try
pd.Dispose()
pd = Nothing

Return eRtn
End Function

Public Function ShowPageSetup() As DialogResult ''显示页面设置窗口
Dim ps As New PageSetupDialog
Dim eRtn As DialogResult
Try
ps.Document = _PrtDoc
ps.AllowMargins = False
ps.AllowPrinter = False
eRtn = ps.ShowDialog()
If eRtn = DialogResult.OK Then
_PrtPage = ps.PageSettings
End If
Catch ex As Exception
eRtn = DialogResult.Cancel
End Try
ps.Dispose()
ps = Nothing
Return eRtn
End Function

Public Sub ShowPreview() ''显示预览窗口
Dim prev As New PrintPreviewDialog
Try
prev.Document = _PrtDoc
prev.WindowState = FormWindowState.Maximized
prev.UseAntiAlias = True
prev.ShowInTaskbar = True
prev.Name = "打印预览 "

prev.ShowDialog()
Catch ex As Exception
End Try
prev.Close()
prev.Dispose()
prev = Nothing
End Sub
__________________________________________________________________________