Public TableHangCount As Integer
Private Sub Command2_Click()
Form1.CurrentX = 0
Form1.CurrentY = 0
For i = 1 To 10
For j = 1 To 4
Form1.CurrentX = 200 + (j - 1) * 1000
Form1.CurrentY = 500 + (i - 1) * 200
Print Text1(j - 1).Text
Next j
If Not Data1.Recordset.EOF Then
Data1.Recordset.MoveNext
End If
'Data1.Recordset.MoveFirst
Next i
End Sub
Private Sub Command3_Click()
Data1.Recordset.MovePrevious
End Sub
Private Sub Command4_Click()
Data1.Recordset.MoveNext
End Sub
Private Function GetTableHangCount(Mydata As Data) As Integer
Dim count As Integer
Mydata.Recordset.MoveFirst
Do While Not Mydata.Recordset.EOF
Mydata.Recordset.MoveNext
count = count + 1
Loop
Mydata.Recordset.MoveFirst
GetTableHangCount = count
End Function
Private Sub Command5_Click()
'Printer.CurrentX = 0
'Printer.CurrentY = 0
Printer.FontSize = 20
Printer.Orientation = 2
For i = 1 To 10
For j = 1 To 4
Printer.CurrentX = 200 + (j - 1) * 2000
Printer.CurrentY = 500 + (i - 1) * 500
Printer.Print Text1(j - 1).Text
Next j
If Not Data1.Recordset.EOF Then
Data1.Recordset.MoveNext
End If
'Data1.Recordset.MoveFirst
Next i
Printer.EndDoc
End Sub
Private Sub Command6_Click()
TableHangCount = GetTableHangCount(Data1)
Text5.Text = TableHangCount
End Sub
Private Sub PrintHeader(myform1 As Form)
myform1.CurrentX = 1000
myform1.CurrentY = 50
myform1.Print "hello baby!"
End Sub
Private Sub PrintEnd(myform2 As Form)
myform2.CurrentX = 1000
myform2.CurrentY = 3000
myform2.Print "this is the end "
End Sub
Private Sub Command7_Click()
PrintHeader Form1
PrintEnd Form1
End Sub
一个简单的数据库打印程序
需积分: 50 17 浏览量
2006-02-23
09:05:59
上传
评论
收藏 641B RAR 举报
普通网友
- 粉丝: 882
- 资源: 2万+
最新资源
- 电力场景设备漏油检测数据集VOC+YOLO格式338张1类别.7z
- 基于yolov8+pyqt5实现精美界面支持图片视频和摄像检测源码.zip
- 用C语言为母亲节献上一份特别的祝福.zip
- LCD1602液晶显示屏的深入探索与实用指南.zip
- 基于Matlab人脸肤色定理的教师人数统计+源代码+全部数据+文档说明+详细注释+使用说明+截图(高分课程设计)
- 基于Matlab霍夫曼变换的表盘读数识别+源代码+全部数据+文档说明+详细注释+使用说明+截图(高分课程设计)
- 基于Matlab火灾烟雾检测源码带GUI界面+源代码+全部数据+文档说明+详细注释+使用说明+截图(高分课程设计)
- 基于Matlab的恶劣天气交通标志识别系统+源代码+全部数据+文档说明+详细注释+使用说明+截图(高分课程设计)
- 基于MATLAB的霍夫曼变换的表盘示数识别+源代码+全部数据+文档说明+详细注释+使用说明+截图(高分课程设计)
- 基于Matlab的车道线识别系统 +源代码+全部数据+文档说明+详细注释+使用说明+截图(高分课程设计)
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈