vb.net打印预览设置,windows怎么打印预览
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 设置和查看打印效
VB.NET程序如何实现表格填写和打印
一般情况下先用EXCEL做好一个样表文件,设定好打印区域和样式,需要填内容的时候,先程序复制一个样表文件,然后调用API打开表格填写内容并打印,如果想用API来实现调整模板和打印预览,可能比较困难,而且很抽象,个人觉得费时费力效果还不一定理想
如何用VB6.0实现打印预览
我最近刚刚实现了这个。是基于Excel的。
'********************************
' 该模块用来实现各种打印功能
'********************************
'打印到excel中
Public Function print2Excel() As Boolean
' On Error GoTo Print2Excel_Error
Dim xlApp As Excel.Application
Dim i, j ,colums As Integer
Dim startRow, startCol As Integer
Dim tmp() As Variant
startRow = 1
startCol = 1
colums =10
Set xlApp = New Excel.Application '注意之前,要在工程-》引用中将支持excel的控件加载进来
Set xlApp = CreateObject("Excel.Application") '激活EXCEL应用程序
xlApp.Visible = False '隐藏或显示EXCEL应用程序窗口
xlApp.SheetsInNewWorkbook = 1 '打开工作簿,strDestination为一个EXCEL报表文件
Set xlBook = xlApp.Workbooks.Add '打开工作簿,strDestination为一个EXCEL报表文件
Set xlSheet = xlBook.Worksheets(1)
xlSheet.PageSetup.Orientation = g_Print_Method
'设置打印数据 g_Print_Data是一个Variant的二维数组,这个你要根据自己的情况作修改
For i = LBound(g_Print_Data) To UBound(g_Print_Data)
For j = LBound(g_Print_Title) To colums - 1
' xlSheet.Cells(startRow, i + startCol).Width = Len(CStr(" " g_Print_Data(i,j) " "))
、 Next
Next
'页面设置 g_Preview为全局变量,是否要求预览
If g_Preview = True Then
xlApp.Caption = "打印预览" '设置预览窗口的标题
xlApp.Visible = True '隐藏或显示EXCEL应用程序窗口
xlApp.ActiveSheet.PrintPreview
Else
xlSheet.PrintOut '执行打印
End If
xlApp.DisplayAlerts = False
xlApp.Quit '退出EXCEL
xlApp.DisplayAlerts = True
' xlBook.Save '保存文件
print2Excel = True
Exit Function
Print2Excel_Error:
print2Excel = False
End Function
vb.net 打印预览分页
病情分析:
您好,你经常头晕估计是与血压偏低是有关系的。
指导意见:
你可以吃点蜂王浆或生脉饮调理,平时要积极参加体育锻炼,改善体质,增加营养,多喝水,多吃汤。
病情分析:
你好,你的情况属于低血压引起的症状,一般会引起经常头晕乏力和眼花等症状,你的情况需要积极治疗的的
指导意见:
你的情况我建议首先就要注意休息,清淡温热易消化饮食很关键的,建议你用人参炖鸡汤服用看看,多吃红枣和枸杞等食物,积极参加体育锻炼,祝你健康
病情分析:
你好!根据你的资料初步考虑,你的头晕和你的血压偏低相关。血压偏低时改变体位会导致的一过性脑供血不足,其临床特点是头晕,睡眠障碍,记忆力减退三大症状,还有顶枕部头痛,轻瘫,言语障碍、情绪易激动等表现,一般病情缓慢发展,此类头晕的特点是在体位转变时容易出现或加重,如由平卧突然坐起,或者是下蹲后突然站立等动作。头晕可分为两类:一为旋转性眩晕,多由前庭神经系统及小脑的功能障碍所致,以倾倒的感觉为主,感到自身晃动或景物旋转。二为一般性晕,多由某些全身性疾病引起,以头昏的感觉为主,感到头重脚轻。如贫血、体质衰竭等。
指导意见:
建议做全身体检,测血压,血糖,血常规,做头颅、颈椎CT等,寻找原因,对症治疗。避免劳累,减轻心理负担,积极配合治疗,增强免疫力。祝你健康!
头晕可能是感冒,颈椎病,贫血,美尼尔氏综合征,心律失常,休息的时间和质量不好,都是可能导致的,需要找到原因,针对性的治疗才行。
头晕可能是感冒,颈椎病,贫血,美尼尔氏综合征,心律失常,休息的时间和质量不好,都是可能导致的,需要找到原因,针对性的治疗
你好,血压只是低些而没有不适症状一般不需要处理,如果感到不适或伴有其他症状就医治疗了,建议服用生脉饮口服液或者脑心舒口服液治疗.希望回答可以对您有帮助
可能是感冒,贫血,美尼尔氏综合征,心律失常,休息的时间和质量不好,都是可能导致的,需要找到原因,针对性的治疗。
头晕原因很多,一般有颈椎病,贫血,美尼尔氏综合征,心律失常,,腔隙性脑梗塞等,建议你去医院检查,确诊病因才能有效治疗。
您好,头晕还要结合一下血脂等情况,根据具体原因采取治疗措施,
如何用VB.NET导入和导出EXCEL表,打印预览???
NET中数据库数据导入Excel并打印摘要:众所周知,WEB上的打印是比较困难的,常见的WEB上打印的方法大概 ... type=button value=打印预览onclick=document.all.WebBrowser.ExecWB(7,1) ... 3、将数据库的数据或要打印的内容导出到Excel,Word中去打印
文章标题:vb.net打印预览设置,windows怎么打印预览
网站地址:http://myzitong.com/article/dsipjhd.html