在窗体中实现打印预览功能，实现以下非规范表格和数据 的打印

来源：百度知道 编辑：UC知道 时间：2024/05/08 12:55:58
1.第一行线的宽度是2,其他线条的宽度为1,并且表格的中间有虚线，表格右边不封口；
2.编写函数实现所有的打印功能，以便在窗体中进行打印的功能同样可以用到打印机上，
3。打印预览窗口背景色为白色，无标题栏。缺省最大化显示
4.在打印预览窗口按任意键或者点任意处，关闭该窗口

VB下数据报表打印输出方法有多种，一是通过自己的设计和编程完成报表打印输出。二是通过MS OFFICE实现报表打印输出。三是应用数据报表设计器的报表打印输出。本人经常使用第一种方法，它具有根据需要灵活应用的特点，但需编写程序。下附代码，第一段代码定义基本变量，第二段代码定义打印函数，第三段代码是具体打印代码，含数据转换。第四段代码是窗体加载代码，具体连接数据库和打印代码根据你所涉及的数据要求进行修改。预览代码在如下网址:
http://zhidao.baidu.com/question/4165080.html
报表打印代码:
Option Explicit
Private n As Integer
Private m As Integer
Private zh_dm(10) As Double
Private dy_dm(3000, 10) As Variant
Private zsl As Integer
Private y As Integer
Private x As Integer
Private i As Integer
Private k As Integer
Private p As Integer
Private pa As Integer
Private j As Integer
Private txt As String
Private fnt As Integer
Private dd As Variant

Public Function prnt(x As Variant, y As Variant, fnt As Variant, txt0 As Variant)
Printer.CurrentX = x
Printer.CurrentY = y
Printer.FontSize = fnt
Pri