关于打印问题求助，在线等--------------------------急

dongyizhou 2004-06-09 11:18:17

我用PrintPreviewDialog设计打印报表程序，在多页打印时只打最后一页，并不从预览的第一页开始打印。
我也调出了打印设置对话框，选择了打印所有，但是还是只打最后一页。

望有这方面有经验的朋友相助。５０分奉上！

...全文

131 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

dongyizhou 2004-06-10

打赏
举报

循环怎么写啊

dongyizhou 2004-06-09

打赏
举报

用ＶＢ．ｎｅｔ读数据库的内容。再生成打印预览，再接着打印

lk_cool 2004-06-09

打赏
举报

你是打印什么？word txt?

dongyizhou 2004-06-09

打赏
举报

可我在打印预览中可以看到所有的页啊，我是用打印预览上的打印按钮直接打的啊！能否解释为什么不从第一页开始打印！

用循环来打怎么做，请简单说明一下！

minajo21 2004-06-09

打赏
举报

我也调出了打印设置对话框，选择了打印所有，但是还是只打最后一页

不解，看看word打印对么？

lk_cool 2004-06-09

打赏
举报

需要做个循环来打印。

你可能是在显示的时候已经到了最后一页。所以就打印了最后一页。

iceeyer 2004-06-09

打赏
举报

我以前好像见过这个问题，你在打印预览的时候已经把要打印的数据读到了最后，所以只打出了最后一页，打印时需要重新定位。
你的打印预览应该是先读取数据，然后用循环来显示的吧？
那么打印的时候就要重新读取，在利用该循环来打印。

我也记不太清了，好长时间没做过打印的东东了，你试一下吧。

再不行就把断点设在预览完毕之后、打印之前，一步步的调试，查一下打印开始时，数据的位置。

好运～～～～～～～～

csyangzy 2004-06-09

打赏
举报

搂住您等也是等了，不如帮我看看这个带码吧。我打印老是乱码啊。帮帮我这个菜鸟吧。谢谢。
Dim fileToPrint As System.IO.StreamReader
Dim printFont As System.Drawing.Font

Private Sub PrintButton_Click(ByVal sender As Object, ByVal e As EventArgs) Handles _
PrintButton.Click
Dim PrintPath As String = System.Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory)
fileToPrint = New System.IO.StreamReader(PrintPath & "\myFile.doc")
printFont = New System.Drawing.Font("simsun", 10)
PrintDocument1.Print()
fileToPrint.Close()
End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As _
System.Drawing.Printing.PrintPageEventArgs) Handles _
PrintDocument1.PrintPage
Dim linesPerPage As Single = 0
Dim yPos As Single = 0
Dim count As Integer = 0
Dim leftMargin As Single = e.MarginBounds.Left
Dim topMargin As Single = e.MarginBounds.Top
Dim line As String = Nothing
linesPerPage = e.MarginBounds.Height / printFont.GetHeight(e.Graphics)
While count < linesPerPage
line = fileToPrint.ReadLine()
If line Is Nothing Then
Exit While
End If
yPos = topMargin + count * printFont.GetHeight(e.Graphics)
e.Graphics.DrawString(line, printFont, Brushes.Black, leftMargin, _
yPos)
count += 1
End While
If Not (line Is Nothing) Then
e.HasMorePages = True
End If
End Sub

另外有高人帮助搂住的话，顺便也帮我一把吧。问题解决我会给分的。谢谢！

dongyizhou 2004-06-09