关于vbnet批量打印的信息

vb.net如何实现打印整个panel的内容（打印机打印）

使用jquery.print插件

我用得jQuery.print, version 1.3.2。

页面上调用代码如下：PrintArea就是你panel的ID....

script src="~/Scripts/jQuery.print.js"/script

script

function printarea() {

$("#PrintArea").print({

globalStyles: true,

mediaPrint: false,

stylesheet: null,

noPrintSelector: ".no-print",

iframe: true,

append: null,

prepend: null,

manuallyCopyFormValues: true,

deferred: $.Deferred()

});

}

/script

a class="btn btn-success" Onclick="printarea()"打印/a

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

调用下面语句可直接用默认打印机打印出来：

PrintDocument1.Print()

vb.net Document_PrintPage打印多行文本

比如：

Private Sub Document_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)

e.Graphics.DrawString(str0, New Font("Arial", 14, FontStyle.Regular), Brushes.Black, 50, 50)

e.Graphics.DrawString(A1, New Font("Arial", 10, FontStyle.Regular), Brushes.Black,50, 100)

e.Graphics.DrawString(A2, New Font("Arial", 10, FontStyle.Regular), Brushes.Black, 300,100)

e.Graphics.DrawString(A3, New Font("Arial", 10, FontStyle.Regular), Brushes.Black, 800,100)

也就是分次用不同坐标和不同的字体来打印各变量。画线用：

e.Graphics.DrawLine(BlackPen, x1, y1, x2, y2)。

具体坐标数值自己用尺量出，再换算。