|
工资人事数据库系统
请使用AccDev090309.mdb录入数据
AccDev090309.mdb登录名:000001,密码:admin
工资人事系统(杨成云).mdb密码:111111
将压缩包解压到
E:\工资人事数据库系统
补充:将附件压缩包中的命令按钮CommandButton1的代码修改为
Private Sub CommandButton1_Click()
Dim nYe As Integer, Fs As Byte
Fs = Range("i6").Value2 '打印份数
Fs = IIf(Fs = 0, 1, Fs)
nYe = (Range("i3") - 1) \ Range("i4")
If nYe * Range("i4") < Range("i3") - 1 Then nYe = nYe + 1
For i = 1 To nYe '循环各页
Range("i5") = i '页号
ActiveSheet.PrintOut Copies:=Fs '打印
Next
Range("i5") = 1
End Sub
[ 本帖最后由 杨成云 于 2009-7-2 14:43 编辑 ] |
评分
-
1
查看全部评分
-
|