想分页打印行数，VBA代码怎么修改

z497861593 · 发表于 2016-4-7 20:50

跪求大大们帮助，假如出库明细同个单据行数超过出库单打印的一张行数，想分页打印行数，VBA代码怎么修改。

z497861593 · 发表于 2016-4-7 20:56

这个问题感觉有点难，花了N个小时，在论坛都找不到结果QAQ

dyp1610 · 发表于 2016-4-7 22:12

Sub 打印()
kname = Right([A3], Len([A3]) - 5)
sday = [F3]
Set conn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
conn.Open "provider=microsoft.jet.oledb.4.0;" & _
"extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
Sql = "select 产品名称,单位,数量,单价,金额 from [明细$F1:M18] where 单位名称='" & kname & "' and 日期=#" & sday & "#"
Set rs = conn.Execute(Sql)
arr = rs.getrows
For i = 0 To UBound(arr, 2)
If i < 7 Then
Cells(i + 5, 1) = arr(0, i)
Cells(i + 5, 4) = arr(1, i)
Cells(i + 5, 5) = arr(2, i)
Cells(i + 5, 6) = arr(3, i)
Cells(i + 5, 7) = arr(4, i)
Else
Sheets("打印").Copy after:=ActiveSheet
Range("A5:G11").ClearContents
For j = 7 To UBound(arr, 2)
Cells(j - 2, 1) = arr(0, j)
Cells(j - 2, 4) = arr(1, j)
Cells(j - 2, 5) = arr(2, j)
Cells(j - 2, 6) = arr(3, j)
Cells(j - 2, 7) = arr(4, j)
Next
Exit For
End If
Next
conn.Close
Set conn = Nothing
End Sub

复制代码

z497861593 · 发表于 2016-4-7 22:24

dyp1610 发表于 2016-4-7 22:12

大大，还是不行

z497861593 · 发表于 2016-4-7 22:30

大于第七条记录时，会把格式破坏掉的

dyp1610 · 发表于 2016-4-7 23:00

Sub 打印()
kname = Right([A3], Len([A3]) - 5)
sday = [F3]
Set conn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
conn.Open "provider=microsoft.jet.oledb.4.0;" & _
"extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
Sql = "select 产品名称,单位,数量,单价,金额 from [明细$F:M] where 单位名称='" & kname & "' and 日期=#" & sday & "#"
Set rs = conn.Execute(Sql)
arr = rs.getrows
Range("A5:G11").ClearContents
m = Int(UBound(arr, 2) / 7 + 0.86)
For n = 1 To m
If n > 1 Then
Sheets("打印").Copy after:=ActiveSheet
Range("A5:G11").ClearContents
End If
On Error Resume Next
For j = 0 To 6
t = (n - 1) * 7 + j
Cells(j + 5, 1) = arr(0, t)
Cells(j + 5, 4) = arr(1, t)
Cells(j + 5, 5) = arr(2, t)
Cells(j + 5, 6) = arr(3, t)
Cells(j + 5, 7) = arr(4, t)
Next
Next
conn.Close
Set conn = Nothing
End Sub

复制代码

z497861593 · 发表于 2016-4-8 06:46

dyp1610 发表于 2016-4-7 23:00

大神！还是弄不了，打印的数据大于打印表格的行数，就把打印表格的格式给弄没了

z497861593 · 发表于 2016-4-8 06:47

dyp1610 发表于 2016-4-7 23:00

大神！还是弄不了，打印的数据大于打印表格的行数，就把打印表格的格式给弄没了

dyp1610 · 发表于 2016-4-8 07:02

我测试很正常，附件给你

z497861593 · 发表于 2016-4-8 18:10

dyp1610 发表于 2016-4-8 07:02
我测试很正常，附件给你

谢谢大神，可能我的问题有些错误！改正为同张同据号出库明细记录大于7条，也能在打印表里打印出来，但不会变表格格式

		自动登录	找回密码
密码			免费注册