用VB如何画表

来源：百度知道 编辑：UC知道 时间：2024/06/21 17:28:33
在窗体中实现打印预览功能，实现以下非规范表格和数据的打印：
要求：1、第一行线的宽度是2，其他线条的宽度为1，并且表格的中间有虚线，表格右边不封口；
2、编写函数实现所有的打印功能，以便在窗体中进行打印的功能同样可以用到打印机上；
3、打印预览窗口背景色为白色、无标题栏、缺省最大化显示；
4、在打印预览窗口按任意键或者点任意处，关闭该窗口。
图如下：
能否把窗体和工程文件传给我，邮箱ylstart@263.net,谢谢。

Option Explicit
Dim cmdQuxianFlag As Boolean
Private quexian(13, 6000) As Variant
Private gyhDate As String
Private chaxun11 As String
Private chaxun2 As String
Private zsl As Integer
Private wy_wy As Single
Private br_br As Single
Private zsl1 As Integer
Private zsl11 As Integer
Private i As Integer
Private j As Integer
Private x As Integer
Private y As Integer
Private fnt As Integer
Private txt As Variant
Private txt0 As Variant
Private dy As Variant
Private dd As Variant
Private prnt_bm(300, 7) As Variant
'画曲线函数
Public Function xp1(colvb1 As Variant, xx1 As Variant, yy1 As Variant, txt1 As Variant)
Picture3.ForeColor = colvb1 'QBColor(14)
Picture3.CurrentX = xx1
Picture3.CurrentY = yy1
Picture3.Print txt1 '
End Function
'打印函数
Public Function prnt(x As Variant, y As Variant, fnt As Variant, txt0 As Variant)
Printer.Cu