自定义页大小.docVIP

自定义页大小????????Dim?pkCustomSize1?As?New?Printing.PaperSize(p,?450,?400)????????printdoc.DefaultPageSettings.PaperSize?=?pkCustomSize1 Static?intCurrentChar?As?Int32?=?0????????Dim?font?As?New?font(Microsoft?Sans?Serif,?24)????????Dim?intPrintAreaHeight,?intPrintAreaWidth,?marginLeft,?marginTop?As?Int32????????With?pdoc.DefaultPageSettings????????????intPrintAreaHeight?=?.PaperSize.Height?-?.Margins.Top?-?.Margins.Bottom?’指定文字区域高度????????????intPrintAreaWidth?=?.PaperSize.Width?-?.Margins.Left?-?.Margins.Right?’指定文字区域宽度????????????marginLeft?=?.Margins.Left??左上角坐标????????????marginTop?=?.Margins.Top??Y?coordinate坐标????????End?With???????????????Dim?intLineCount?As?Int32?=?CInt(intPrintAreaHeight?/?font.Height)????????Dim?rectPrintingArea?As?New?RectangleF(marginLeft,?marginTop,?intPrintAreaWidth,?intPrintAreaHeight)????????Dim?fmt?As?New?StringFormat(StringFormatFlags.LineLimit)????????Dim?intLinesFilled,?intCharsFitted?As?Int32????????MID返回指定数量的字符串????????e.Graphics.MeasureString(Mid(txtDocument.Text,?intCurrentChar?+?1),?font,?New?SizeF(intPrintAreaWidth,?intPrintAreaHeight),?fmt,?intCharsFitted,?intLinesFilled)????????NEW?SIZE（INTPRINTAREAWIDTH，INTPRINTAREAHEIGHT）指矩形的宽度和高度????????e.Graphics.DrawString(Mid(txtDocument.Text,?intCurrentChar?+?1),?font,?Brushes.Black,?rectPrintingArea,?fmt)????????intCurrentChar?+=?intCharsFitted????????If?intCurrentChar??txtDocument.Text.Length?Then????????????e.HasMorePages?=?True????????Else????????????e.HasMorePages?=?False????????????intCurrentChar?=?0????????End?If VB.NET中创建打印机设置对话框（摘） VB.NET中创建打印机设置对话框是通过PrintDialog类PrintDialog类的常用属性及其说明：属性 说明?AllowPrintToFile 指示是否启用打印到文件复选框。?AllowSelection?? 获取或设定一个值，指示是否启用了页码范围选项按钮。?AllowSomePages 指示是否启用页选项按钮。?Document 获取或设置一个值，指示用于获取?PrinterSettings?? 获取或设置该对话框要修改的?PrintToFile 指示打印到文件复选框是否选中。?ShowHelp?? 指示是否显示帮助按钮。?ShowNetwork 指示是否显示网络按钮。?表05：PrintDialog类的常用属性及其说明　　打印预览对话框：　　VB.NET中创建打印机预览对话框是通过PrintPreviewDialog类，打印机预览对话框其实也可以看成是一个窗体，因为它拥有做为一个窗体所拥有的所有