請問誰知道怎么用vb.net 打印.log日志文件， 用代碼寫的，謝謝了，急用

Dim sw As StreamWriter = New StreamWriter（“c:\xxxxx.log”， True） 'true是指以追加的方式打開指定文件

創(chuàng)新互聯(lián)公司是專業(yè)的迭部網(wǎng)站建設(shè)公司，迭部接單;提供網(wǎng)站設(shè)計制作、成都做網(wǎng)站,網(wǎng)頁設(shè)計,網(wǎng)站設(shè)計,建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進行迭部網(wǎng)站開發(fā)網(wǎng)頁制作和功能擴展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團隊,希望更多企業(yè)前來合作!

For i = 0 To j

temp = i.ToString

sw.WriteLine（temp）

sw.Flush（）

Next

sw.Close（）

sw = Nothing

VB.NET 打印問題。

先拖過來控件PrintDocument1，然后雙擊PrintDocument1，在它的PrintPage事件中加入代碼如下：

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

dim a as String

a="abcd"

Dim mypen As Pen = New Pen(Color.Blue, 2)

e.Graphics.DrawString(a, New Font("宋體", 20), New Pen(Color.Black, 1).Brush, 30, 30)

End Sub

調(diào)用下面語句可直接用默認打印機打印出來：

PrintDocument1.Print()

vb.net 打印功能

可以把數(shù)據(jù)導出到EXCEL，然后使用EXCEL進一步處理后使用。

也可以做成vb報表(VB自帶有)。

先設(shè)置報表格式，打印時向報表傳遞數(shù)據(jù)就可以了。

VS2005如何用VB.NET代碼實現(xiàn)打印功能

有個PrintDocument控件,可以實現(xiàn)打印。。。

MSDN原話：

使用 PrintDocument 組件

涉及 PrintDocument 組件的兩種主要情況是：

簡單的打印作業(yè)，如打印單個文本文件。在這種情況下，應(yīng)將 PrintDocument 組件添加到 Windows 窗體，然后在 PrintPage 事件處理程序中添加打印文件的編程邏輯。 該編程邏輯應(yīng)以使用 Print 方法打印文檔結(jié)束。

此方法向打印機發(fā)送一個 Graphics 對象，該對象包含在 PrintPageEventArgs 類的 Graphics 屬性中。

有關(guān)如何使用 PrintDocument 組件打印文本文檔的示例，請參見

如何：打印 Windows 窗體中的多頁文本文件。

更為復雜的打印作業(yè)，如想要重新使用已編寫的打印邏輯的情況。

在這種情況下，應(yīng)從 PrintDocument 組件派生一個新組件，并重寫

（請參見 Visual Basic 的 重寫或 C# 的 重寫） PrintPage 事件。

將 PrintDocument 組件添加到窗體后，它出現(xiàn)在 Windows 窗體設(shè)計器底部的欄中

高分求解vb.net 打印的問題

報表打印應(yīng)該也能實現(xiàn)，但是我覺得你這個用文本打印更簡單，將數(shù)據(jù)輸出到txt文件，結(jié)果用RichTextBox顯示，但是需要簡單的排版，調(diào)用打印機打印RichTextBox即可的

排版用tab（）、space（）、vbcrlf或PrintLine(1)換行，代碼類似如下樣式

PrintLine(1, TAB(60), "準考證" )

PrintLine(1)

PrintLine(1, "姓名:" xingming Space(3) "準考證號：" cel(1) Space(3) cel(2) Space(3) cel(3))

但是TAB()排版比較規(guī)整

打印代碼類似如下：

PrintDialog1.Document = PrintDocument1

PrintDocument1.DocumentName = "準考證"

PrintDialog1.AllowSomePages = False

PrintDialog1.ShowHelp = False

PrintDialog1.ShowNetwork = False

PrintDialog1.AllowSelection = False

PrintDialog1.AllowPrintToFile = False

MySReader = New StringReader(RichTextBox1.Text)

stringToPrint = MySReader.ReadToEnd()

PageSetupDialog1.Document = PrintDocument1

PageSetupDialog1.PageSettings.Margins.Bottom = 50

PageSetupDialog1.PageSettings.Margins.Top = 50

PageSetupDialog1.PageSettings.Margins.Left = 50

PageSetupDialog1.PageSettings.Margins.Right = 50

If PageSetupDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

PrintDocument1.DefaultPageSettings = PageSetupDialog1.PageSettings '頁面設(shè)置

If PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

If PrintDialog1.PrinterSettings.IsValid = True Then

PrintDocument1.Print()

MsgBox("打印完成！" vbCrLf "Print completed!", , "Print hint(打印提示)")

Else

MsgBox("打印失??！打印機不可用。" vbCrLf "Print failed! The printer is not valid.", , "Print hint(打印提示)")

End If

Else

Exit Sub

End If

End If