vb.net设置纸张打印 vba设置打印纸张类型

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

说一下我的处理方法吧vb.net设置纸张打印，楼主可以参考。

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

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

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

VS2005如何用VB.NET代码实现打印功能

有个PrintDocument控件,可以实现打印。。。

MSDN原话：

使用 PrintDocument 组件

涉及 PrintDocument 组件的两种主要情况是：

简单的打印作业，如打印单个文本文件。在这种情况下，应将 PrintDocument 组件添加到 Windows 窗体，然后在 PrintPage 事件处理程序中添加打印文件的编程逻辑。 该编程逻辑应以使用 Print 方法打印文档结束。

此方法向打印机发送一个 Graphics 对象，该对象包含在 PrintPageEventArgs 类的 Graphics 属性中。

有关如何使用 PrintDocument 组件打印文本文档的示例，请参见

如何：打印 Windows 窗体中的多页文本文件。

更为复杂的打印作业，如想要重新使用已编写的打印逻辑的情况。

在这种情况下，应从 PrintDocument 组件派生一个新组件，并重写

（请参见 Visual Basic 的 重写或 C# 的 重写） PrintPage 事件。

将 PrintDocument 组件添加到窗体后，它出现在 Windows 窗体设计器底部的栏中

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

说明vb.net设置纸张打印：每个机器定义的打印机和尺寸都不一样的vb.net设置纸张打印，如果要知道如何自己的打印机和纸张，可以用录制新宏的方法，找到自己的打印机和尺寸编号。vb.net设置纸张打印我公司的打印机设置是这样的vb.net设置纸张打印：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怎么实现打印功能啊 呜呜（

利用 printdocument控件

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

PrintDocument1.Print()

End Sub

Private Sub PrintDocument1_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

Dim stringFont As New Font("Arial", 16)

Dim rectDraw As New RectangleF(e.MarginBounds.Left, e.MarginBounds.Top, e.MarginBounds.Width, e.MarginBounds.Height)

Dim strFormat As New StringFormat

Dim s As String

s = "print word" '打印的内容

e.Graphics.DrawString(s, stringFont, Brushes.AliceBlue, rectDraw, strFormat)

End Sub

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

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

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

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

vb.net 打印问题

可以将打印机默认打印设置改为黑白打印，如果打印对象是RGB配色，打印机驱动转换为CMYK颜色时，黑色都是由彩色墨水组成的

2.可以试一下图片从一个标准灰度图片格式化而来，这样图片自身只有黑白色，也许可以

关于vb.net设置纸张打印和vba设置打印纸张类型的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。