0

私はこのコードを持っています:

Private printDocument1 As New PrintDocument()
Private stringToPrint As String

Private Sub ReadFile()
    Dim docName As String = "print_doc.rtf"
    Dim docPath As String = fsPathPrintDoc
    printDocument1.DocumentName = docName
    Dim stream As New FileStream(docPath + docName, FileMode.Open)
    Try
        Dim reader As New StreamReader(stream)
        Try
            stringToPrint = reader.ReadToEnd()
        Finally
            reader.Dispose()
        End Try
    Finally
        stream.Dispose()
    End Try
End Sub

そして、私は以下を使用して印刷を行います:

ReadFile()
printDocument1.Print()

VB.NET を使用して rtf ファイルを印刷しprintdialog.show()たいのは、印刷用に特定のプリンターを選択したいからですが、上記のコードでは、ここに埋め込む方法がわかりませんprintdialog。

ネットワークを使用してさまざまなシステムで利用可能なプリンターを使用してそのファイルを印刷したいので、これが必要です。これらの利用可能なプリンターはすべて印刷ダイアログで利用できるようになりました。私が望むのは、ドライブ内の特定のファイルをprintdialog()

printdialogまた、 andを使用してファイルを印刷する可能性を見つけようとしましたprintdocumentが、残念ながら失敗しました。

編集：

http://msdn.microsoft.com/en-us/library/system.drawing.printing.printdocument.aspxを見つけましたが、含まれていませんprintdialog

4

1 に答える 1

1

You assign your PrintDocument to the PrintDialogs Document Property, it will then add the selected printer to your Document. You then print the Document as normal.

PrintDialog1.AllowSomePages = True 
PrintDialog1.ShowHelp = True 
PrintDialog1.Document = printDocument1 'Assign your Document here

Dim result As DialogResult = PrintDialog1.ShowDialog()

If (result = DialogResult.OK) Then
    printDocument1.Print()
End If
于 2012-10-07T15:59:50.127 に答える