none
求救!关于vb2008打印问题 RRS feed

  • 问题

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

    XXX标题

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

    名称 数量 单位 地址 备注

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

    xxx 2 1 xxxx xxxx

    xxx 2 1 xxxx xxxx

    .......

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

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


    • 已编辑 文雨 2011年7月25日 1:20 格式修改
    2011年7月25日 1:18

答案

  • 所谓的增强包就是额外附加的DLL,把这DLL一起打包就能在其他机子上运行了
    算神的博客
    2011年7月26日 2:01
  • 我这正好有一段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.

    2011年7月27日 11:31
    版主

全部回复

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

    详细介绍 & 下载地址

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


    算神的博客
    2011年7月25日 1:30
  • 谢谢,我去试试,在没有安装这个增强包的机器上运行编译成的程序能运行吗?还是也得安装这个增强包?
    2011年7月26日 1:25
  • 所谓的增强包就是额外附加的DLL,把这DLL一起打包就能在其他机子上运行了
    算神的博客
    2011年7月26日 2:01
  • 我这正好有一段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.

    2011年7月27日 11:31
    版主