Private Sub Command1_Click() '用PrintForm打印
Me.PrintForm '打印窗体的可见区域
End Sub
直接打印窗体
在FORM1中增加命令按钮(command),CAPTION属性设为直接打印, 再写入下列代码:
Sub command_click
Form1.printform
End sub
这样即可通过打印窗体FORM1的方法把GRID1的数据打印出来。这 种方法的缺点是只能打印GRID1中显示的数据部分,显示不出来的则无 法打印,而且这种打印方法很像屏幕硬拷贝,而且不能灵活地控制字体 等。