vb.net设置打印纸 vb指定打印机打印

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

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

成都创新互联专业为企业提供闵行网站建设、闵行做网站、闵行网站设计、闵行网站制作等企业网站建设、网页设计与制作、闵行企业网站模板建站服务，10余年闵行做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。

一下转载内容！~~~

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

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 唉

VBA设置打印机和纸张

Sub 连续打印()

rs = Sheets("合计金额").Cells(Rows.Count, 7).End(xlUp).Row

ar = Sheets("合计金额").Range("g1:g" rs)

For i = 2 To UBound(ar)

If Trim(ar(i, 1)) "" Then

    With Sheets("表单列印")

        .[j6] = ar(i, 1)

        .PrintOut Copies:=1, Collate:=True, ActivePrinter:="\\PC-20180330UQSC\Fujitsu DPK720 在 Ne03:,PaperSize = 124"

    End With

End If

Next i

End Sub

说明：每个机器定义的打印机和尺寸都不一样的，如果要知道如何自己的打印机和纸张，可以用录制新宏的方法，找到自己的打印机和尺寸编号。我公司的打印机设置是这样的：ActivePrinter:="\\PC-20180330UQSC\Fujitsu DPK720 在 Ne03:,PaperSize = 124"

共享打印机的电脑如果重装系统，那么要重新定义这段程序的打印机设置。

在装有共享打印机的那台电脑里，端口是USB001,之前改为Lpt1,结果打印出错。将端口改回来就好了。每个人的电脑不一样，都要按照实际情况来设置。PaperSize = 124，表明设置的打印纸张格式是【NFCP 窄行连续 240mm 二等分】格式。 

至于为什么端口是Ne03,在注册表中展开路径为[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts]，里面可以看到自己电脑打印机的端口。

VB.NET打印编程问题，打印机为激光打印机。

打印做得不多，以前做套打时发现，每台打印机定位都不一样，于是每台机子都加了个偏移设置

我的做法在白纸上打上一标尺，和一个上下边距为2CM的交叉点，然后用标尺量这2CM的偏移，设置完后，在这台打印机打印时，就给纸张加个偏移量，打印就正常了。可能你的原因和我一样。

另外也想问你一下，你这个条码是用什么打的。早先，我用立象的条码打印机打不干胶，很简单，激光打没用过，可能下次我也要用条码打印，我也用VB.net。求教.