vb打印技巧.docVIP

ResetPrinterOrientation ? Me ? ? ? ? ? ? 设为默认值 ? Printer.Orientation=VbPRORPortraitPrinter.Orientation=VbPRORLandscape横向打印?? Printer.PaperSize?=?vbPRPSA4???定义纸张大小为A4 设置打印页边距?你可以使用打印机的Scale属性来设置打印页边距。下面的代码设置左边距为1/2英寸。右边距为3/4英寸。乘以1440是将英尺转换成twips。Printer.ScaleLeft?=?-0.75?*?1440?Printer.ScaleTop?=?-0.5?*?1440?Printer.CurrentX?=?0?Printer.CurrentY?=?0? 打印多页Rich Text 　　 打印对象在处理RichTextBox时由于忽视了Rich Text代码将不会工作得很好。为了打印RichTextBox，要使用SelPrint命令，但是SelPrint不是非常得友好，它按照自己的方式打印然后产生退纸动作。为了打印多页Rich Text，要找到每一页的开始和结束点，然后依此设置SelStart和SelLength，最后使用SelPrint打印出每一页。以下是工作的每一个步骤： 　　 1、使用SaveFile命令保存编辑版本的文件。 　　 2、转换编辑版本为打印版本： 　　 　　 遍历这个文档，修改SelIndent和SelRightIndent的数值，使之适合于打印机（注意：编辑时的缩进数值对于屏幕是合适的，但不适用于打印机）。 　　 做些其他的修改，比如：添加页眉，消除行号。 　　 3、使用SelPrint循环一次打印一个页面。这里，计算行数是一个技巧，找到LFCRs是容易的，但是，也必须要计算一下行缠绕，它也算在了行统计中，以及绝对不允许发生的页面溢出情况。 　　 4、使用SelRTF=删除打印版本。 　　 5、使用LoadFile重新启动编辑版本。 　　 打印MSFlexGrid 　　 这里有一个快速打印MSFlexGrid控件内容的方法： 　　 Printer.PaintPicture MSFlexGrid_Name.Picture, 0, 0 　　 Printer.EndDoc 　　 如果想打印满页面的整个长度，请在前面添加下面2个语句： 　　 Dim old_width as Integer 　　 MSFlexGrid_Name.width=printer.width 　　 然后，再在尾部添加： 　　 MSFlexGrid_Name.width=old_width　　 Paintpicture方法的说明 object.PaintPicture ? picture, ? x1, ? y1, ? width1, ? height1, ? x2, ? y2, ? width2, ? height2, ? opcode ? ? ? ? PaintPicture ? 方法的语法包含下列部分： ? ? 部分 描述 ? ? ? ? object 可选的。一个对象表达式，该对象一定能在“应用于”列表中找到。如果省略 ? object，带有焦点的 ? Form ? 对象缺省为 ? object。 ? ? Picture 必需的。要绘制到 ? object ? 上的图形源。Form ? 或 ? PictureBox ? 必须是 ? Picture ? 属性。 ? ? x1, ? y1 必需的。均为单精度数值，指定在 ? object ? 上绘制 ? picture ? 的目标坐标（x-轴和y-轴）。object ? 的 ? ScaleMode ? 属性决定使用的度量单位。 ? ? ? Width1 可选的。单精度数值，指示 ? picture ? 的目标宽度。object ? 的 ? ScaleMode ? 属性决定使用的度量单位。如果目标宽度比源宽度 ? (width2) ? 大或小，将适当地拉伸或压缩 ? picture。如果该参数省略，则使用源宽度。 ? ? Height1 可选的。 ? 单精度数值，指示 ? picture ? 的目标高度。object ? 的 ? ScaleMode ? 属性决定使用的度量单位。如果目标高度比源高度 ? (height2) ? 大或小，将适当地拉伸或压缩 ? picture。如果该参数省略，则使用源高度。 ? ? x2, ? y2 可选的。均为单精度数值，指示 ? picture ? 内剪贴区的坐标（x-轴和y-轴）。object ? 的 ? Sca