打印机对话框不会弹出

Question

我必须打印字符串到POS打印机，并选择显示PrintDialog或没有它。
显示没有对话框的代码打印（pDialog = FALSE）正常，但对话框不需要。

    Imports System.Drawing
    Imports System.Drawing.Printing
    Imports System.Runtime.InteropServices

    ...
    If pDialog Then
        Dim pd As New PrintDialog()
        pd.PrinterSettings = New PrinterSettings()
        If (pd.ShowDialog() = Windows.Forms.DialogResult.OK) Then
            cls_RAW_print.PrintRaw(pd.PrinterSettings.PrinterName, pStr)
        End If
    Else
        ''Print without dialog
        cls_RAW_print.PrintRaw(winprintername, pStr)
    End If

如果pDialog为TRUE，则不会生成错误，并且不显示对话框，也不会打印字符串。 程序只是静静地跨过pd.ShowDialog。

这是否有任何明显的原因导致PrinterDialog没有弹出以及如何获取它？ 这可能是这个代码在模块中的问题吗？