vb.net - 印刷プレビューでファイルが表示されない

Question

メニュー ストリップの印刷プレビュー イベントに取り組んでいます。ワークブックと同じパスにある pdf ファイルを表示するために、次の手順を実行しました。

    Private WithEvents docPrint As New PrintDocument()
' Declare a string to hold the entire document contents. 
Private documentContents As String

' Declare a variable to hold the portion of the document that 
' is not printed. 
Private stringToPrint As String

Private Sub ReadDocument()

    Dim xlWBPath As String = Globals.ThisWorkbook.Application.ActiveWorkbook.Path
    Dim docName As String = xlWBPath & "\" & "CustomRanges.pdf"

    docPrint.DocumentName = docName

    Dim stream As New FileStream(docName, FileMode.Open)
    Try
        Dim reader As New StreamReader(stream)
        Try
            documentContents = reader.ReadToEnd()
        Finally
            reader.Dispose()
        End Try
    Finally
        stream.Dispose()
    End Try
    stringToPrint = documentContents

End Sub

Private Sub prnPrvStripCustomRange_Click(sender As Object, e As EventArgs) Handles prnPrvStripCustomRanges.Click


    ReadDocument()
    prnPrvCustomRanges.Document = docPrint
    prnPrvCustomRanges.ShowDialog()


End Sub

クリックするとダイアログが表示されますが、ドキュメント ページが空白です。印刷用の別のイベントがあり、そのイベントが同じドキュメントを印刷します。そのため、プレビューで何が間違っているのかわかりません。

ここに私の印刷手順があります：

Private Sub prnCustonPages_Click(sender As Object, e As EventArgs) Handles prnCustonPages.Click

Dim xlWBPath As String = Globals.ThisWorkbook.Application.ActiveWorkbook.Path
Dim docName As String = xlWBPath & "\" & "CustomRanges.pdf"


docPrint.DocumentName = docName

prnPrtCustomRanges.Document = docPrint
prnPrtCustomRanges.PrinterSettings = docPrint.PrinterSettings
prnPrtCustomRanges.AllowSomePages = True

If prnPrtCustomRanges.ShowDialog = DialogResult.OK Then
    docPrint.PrinterSettings = prnPrtCustomRanges.PrinterSettings
    docPrint.Print()


End If

サブ終了