正文
vb.net打印机设定 vb 设置默认打印机
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
VB.NET打印编程问题，打印机为激光打印机。
打印做得不多，以前做套打时发现，每台打印机定位都不一样，于是每台机子都加了个偏移设置
我的做法在白纸上打上一标尺，和一个上下边距为2CM的交叉点，然后用标尺量这2CM的偏移，设置完后，在这台打印机打印时，就给纸张加个偏移量，打印就正常了。可能你的原因和我一样。
另外也想问你一下，你这个条码是用什么打的。早先，我用立象的条码打印机打不干胶，很简单，激光打没用过，可能下次我也要用条码打印，我也用VB.net。求教.
相关问答
Q1: vb.net 打印问题
可以将打印机默认打印设置改为黑白打印，如果打印对象是RGB配色，打印机驱动转换为CMYK颜色时，黑色都是由彩色墨水组成的
2.可以试一下图片从一个标准灰度图片格式化而来，这样图片自身只有黑白色，也许可以
Q2: VB.NET或C#如何调用某个打印机（例如"Microsoft XPS Document Writer"）的“打印首选项”？
实现打印功能的核心是PrintDocument类这个类属于System.Drawing.Printing名字空间这个类封装了当前的打印设置页面设置以及所
有的与打印有关的事件和方法
这个类包括以下几个属性 事件 和方法
1、PrinterSettings 属性
存放打印机的设置信息这个属性不需要程序员设置因为它是由打印对话框获取的
2、PrintCountroller 属性
控制打印过程
3、DefaultPageSettings 属性
存放页面设置信息 打印纸大小方向等也不需要程序员设置因为它是由页面设置对话框获取的
4、DocumentName 属性
指定文档名称，出现在打印机状态窗口中
1。 BeginPrint事件
在打印之前发出
2. PrintPage事件
每打印一页是发出，事件接受一个PrintPageEventArgs参数该参数封装了打印相关的信息
PrintPageEventArgs参数有很多重要的属性
1 Cancel 取消打印
2 Graphics 页面的绘图对象
3 HasMorePages 是否还有要打印的页面
Print 方法 该方法没有参数 调用它将按照当前设置开始打印
若实现打印功能首先构造PrintDocument对象添加打印事件
PrintDocument printDocument;
private void InitializeComponent()
{
...
printDocument=new PrintDocument();
printDocument.PrintPage += new PrintPageEventHandler (this.printDocument_PrintPage);
...
}
实现打印事件功能
打印和绘图类似都是调用Graphics 类的方法进行画图 不同的是一个在显示器上一个在打印纸上并且打印要进行一些复杂的计算
如换行 分页等。
private void printDocument_PrintPage(object sender,PrintPageEventArgs e)
{
StringReader lineReader = new StringReader(textBox.Text);
Graphics g = e.Graphics; //获得绘图对象
float linesPerPage = 0; //页面的行号
float yPosition = 0; //绘制字符串的纵向位置
int count = 0; //行计数器
float leftMargin = e.MarginBounds.Left; //左边距
float topMargin = e.MarginBounds.Top; //上边距
string line = null; 行字符串
Font printFont = this.textBox.Font; //当前的打印字体
SolidBrush myBrush = new SolidBrush(Color.Black);//刷子
linesPerPage = e.MarginBounds.Height / printFont.GetHeight(g);//每页可打印的行数
//逐行的循环打印一页
while(count linesPerPage ((line=lineReader.ReadLine()) != null))
{
yPosition = topMargin + (count * printFont.GetHeight(g));
g.DrawString(line, printFont, myBrush, leftMargin, yPosition, new StringFormat());
count++;
}
如果本页打印完成而line不为空说明还有没完成的页面这将触发下一次的打印事件在下一次的打印中lineReader会
自动读取上次没有打印完的内容因为lineReader是这个打印方法外的类的成员它可以记录当前读取的位置
if(line != null)
e.HasMorePages = true;
else
e.HasMorePages = false;
}
打印设置，构造打印对话框 将对话框中设置的Document属性赋给printDocument这样会将用户的设置自动保存到printDocument
的PrinterSettings属性中
protected void FileMenuItem_PrintSet_Click(object sender,EventArgs e)
{
PrintDialog printDialog = new PrintDialog();
printDialog.Document = printDocument;
printDialog.ShowDialog();
}
页面设置和打印预览与打印设置原理相同都是构造对话框将用户在对话框中的设置保存到相应的类的属性中
protected void FileMenuItem_PageSet_Click(object sender,EventArgs e)
{
PageSetupDialog pageSetupDialog = new PageSetupDialog();
pageSetupDialog.Document = printDocument;
pageSetupDialog.ShowDialog();
}
打印预览
protected void FileMenuItem_PrintView_Click(object sender,EventArgs e)
{
PrintPreviewDialog printPreviewDialog = new PrintPreviewDialog();
printPreviewDialog.Document = printDocument;
try
{
printPreviewDialog.ShowDialog();
}
catch(Exception excep)
{
MessageBox.Show(excep.Message, "打印出错", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
}
打印就可以直接调用printDocument的Print()方法因为用户可能在打印之前还要再更改打印设置所以
在这里再次显示打印设置对话框
protected void FileMenuItem_Print_Click(object sender,EventArgs e)
{
PrintDialog printDialog = new PrintDialog();
printDialog.Document = printDocument;
lineReader = new StringReader(textBox.Text);
if (printDialog.ShowDialog() == DialogResult.OK)
{
try
{
printDocument.Print();
}
catch(Exception excep)
{
MessageBox.Show(excep.Message, "打印出错", MessageBoxButtons.OK, MessageBoxIcon.Error);
printDocument.PrintController.OnEndPrint(printDocument,new PrintEventArgs());
}
}
}
总结打印的过程是
1 在应用程序窗体初始化时构造PrintDocument对象 添加 printDocument 的 PrintPage 方法
2 实现PrintPage方法 4 在用户的单击事件中调用 printDocument 的 Print方法实现打印功能
在这中间可能要用到 PrintDialog PrintPreviewDialog PageSetupDialog 设置和查看打印效
Q3: 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 唉
Q4: vb.net 打印机如何：点击Button1后将textbox1中“1234” 打印到纸上
Imports System.Drawing.Printing
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim PrintDoc As New PrintDocument
AddHandler PrintDoc.PrintPage, AddressOf Me.PrintText
PrintDoc.Print()
Catch ex As Exception
MessageBox.Show("sorry", ex.ToString)
End Try
End Sub
Private Sub PrintText(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
ev.Graphics.DrawString(TextBox1.Text, New Font("Arial", 11, FontStyle.Regular), Brushes.Black, 120, 120)
ev.HasMorePages = False
End Sub
End Class
