vb.net打印纸列表 vb打印代码怎么写

数据库据库vb.net打印票，用三联打印纸有裂纹的，怎么前一张和下一张逐渐拉开距离了？

说一下我的处理方法吧，楼主可以参考。

先在打印机的服务器属性中设定一个符合打印标准的纸张尺寸。这样使你的打印纸尺寸固定，不需要你每次打印的时候都重新指定打印尺寸，避免计算误差。

然后在你要打印的内容外面嵌套一套一个table，设定一个初始的Style的margin-top值。多张的票据内容是通过循环计算产生。在调整过程中，计算下一张与上一张的相对margin-top值，多次计算后你就能找到每次打印时的上下偏移值，然后做一个算法计算两张之间的margin-top值，就OK了。

我们做套打发票都是这么做的，这是一个重复性很强的工作，要有耐心。另外，一定要要求所有的用户使用同一款打印机，不同的打印机的偏移值是不一样的。

相关问答

Q1: vb.net,水晶报表打印时纸张变为信纸，打印机里面已经自定义好了纸张，用EXCEL,WORD就正常，请高手指点

别的地方转来的！~ 不过我们以前做的时候 都是在打印机里增加一种打印纸 然后就可以选了！~

一下转载内容！~~~

水晶报表-强大而成熟，但是多少男儿汉败倒在他的自定义纸张设置上。

1：水晶报表是纸形打印。所以自定义纸张类打印肯定要在电脑上增加对应的纸张才行（手动加还是代码加这个不管）

2：纸张分3种系统内建（不可更改），自定义，打印机自带。很遗憾的是水晶只认系统内建的。

3：打印机一般分2种。1普通喷墨的A4,2有联单的针式

4：注意水晶报表不是所见所得的，预览的纸张是什么不一定打印的就是什么纸张（受3方影响。打印机、报表内设置、PAPERSIZE 属性，三者之间关系不详）。

5：对于第一种A4纸张。没什么好说的系统内建纸型。水晶报表认。直接指定就行

6：对于第二种联单的自定义型一般专机专用，当然是建好纸张让打印机默认自己建的纸张为默认首选了。

7：然后设置水晶报表使用打印机默认的纸张PaperSize = CrystalDecisions.Shared.PaperSize.DefaultPaperSize

以上能保证专机专纸的任何打印。：要注意第4点。如果你是自定义纸而且要预览要保障预览和打印都用指定的纸张，那么预览时你得指定PaperSize=你自定义纸张的索引号。打印的时候又改成CrystalDecisions.Shared.PaperSize.DefaultPaperSize

8：如果你想一个打印机多个自定义纸张那么用API吧动态改变打印机的默认纸张，根据以上拐2弯就能实现了遗憾的是网络打印机的话就没折了。o(︶︿︶)o 唉

Q2: VB.NET中怎么获取当前打印机的纸张类型

我是VB.NET 2010版本

窗体上添加一个按钮，代码如下：

Imports System.Drawing.Printing

Public Class Form1

'采用关键字WithEvents声明一个PrintDocument对象，会引发它的PrintPage事件

Private WithEvents My_PrintDocument As PrintDocument

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'实例化PrintDocument对象

My_PrintDocument = New PrintDocument

'显示默认的打印机名称

MsgBox(My_PrintDocument.PrinterSettings.PrinterName)

'显示默认的打印机纸张类型名称

MsgBox(My_PrintDocument.DefaultPageSettings.PaperSize.ToString)

End Sub

End Class

Q3: vb.net Document_PrintPag 打印

我帮你把最后一部分的语句顺序调换一下。你试一试

sub button1_click() '---执行打印

Dim pd As PrintDocument = New PrintDocument

pd.PrinterSettings = PrintDialog1.PrinterSettings

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

for i=0 to 1 '这样可以两次截图

CaptureScreen() '--执行前面自定义函数截图

AddHandler pd.PrintPage, AddressOf Document_PrintPage

pd.Print()

Threading.Thread.sleep(100) ‘ 再加上一个间隔

next

end sub

Q4: VB.NET程序如何实现表格填写和打印

一般情况下先用EXCEL做好一个样表文件vb.net打印纸列表，设定好打印区域和样式vb.net打印纸列表，需要填内容vb.net打印纸列表的时候vb.net打印纸列表，先程序复制一个样表文件，然后调用API打开表格填写内容并打印，如果想用API来实现调整模板和打印预览，可能比较困难，而且很抽象，个人觉得费时费力效果还不一定理想

关于vb.net打印纸列表和vb打印代码怎么写的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。