求救！关于vb2008打印问题

Question

求救！关于vb2008打印问题，准备用针式打印机后进纸打印一个销售列表格式如下

XXX标题

========================================================

名称 数量 单位 地址 备注

--------------------------------------------------------

xxx 2 1 xxxx xxxx

xxx 2 1 xxxx xxxx

.......

========================================================

原来在vb6中可以用printr.print语句实现，现在在vb2008中不可以，希望给出思路和代码，我是新学，请说的简单点具体点，求指点，谢谢

Answer 1

只需安装个VB增强包(Visual Basic Power Packs 3.0)便可以在VB2008重新使用VB6中的 Printer 和 Printers 集合

详细介绍 & 下载地址

http://msdn.microsoft.com/zh-cn/vbasic/bb735936

---

算神的博客

Answer 2

谢谢，我去试试，在没有安装这个增强包的机器上运行编译成的程序能运行吗？还是也得安装这个增强包？

Answer 3

所谓的增强包就是额外附加的DLL，把这DLL一起打包就能在其他机子上运行了

---

算神的博客

Answer 4

我这正好有一段VB。net中用printdocument来打印文件的一段代码，希望可以帮到你：

  Public Sub PrintFile(fileName As String)
    Dim pd As New PrintDocument

    pd.DefaultPageSettings.Margins = New Margins(25, 25, 50, 50)
    arrFile = IO.File.ReadAllLines(fileName)
    AddHandler pd.PrintPage, AddressOf HowToPrint
    pd.Print()

  End Sub

  Private i As Integer = 0
  Private pages As Integer = 0
  Private arrFile() As String
  Private Sub HowToPrint(sender As Object, e As PrintPageEventArgs)
    While i < arrFile.Length
      e.Graphics.DrawString(arrFile(i), New Font("Calibri", 10.2), Brushes.Black, New Point(10, i * 13 - pages * 70 * 13 + 26))
      i += 1
      'each page per 70 lines
      If i Mod 70 = 0 Then
        e.HasMorePages = True
        pages += 1
        Exit Sub
      End If
    End While

    e.HasMorePages = False
    arrFile = Nothing
  End Sub

数据都是一样的打印。

Best regards,

 

---

Mike Feng [MSFT]
MSDN Community Support | Feedback to us
Get or Request Code Sample from Microsoft
Please remember to mark the replies as answers if they help and unmark them if they provide no help.