根据给定的条件打印？？（已解决）

WANGJUN0811 · 发表于 2008-12-31 20:00

自从进入本论坛后得到大家多次帮忙先在这里说声谢谢啦！现在想解决的问题是：当Q3改变时页面中的“线”与“杆”列根据登记表的数据相对应的“线”与“杆”列而改变，然后点击打印按钮把Q3所对应的内容都打印出来。

[ 本帖最后由 WANGJUN0811 于 2009-1-3 15:18 编辑 ]

maditate · 发表于 2008-12-31 20:11

你的问题可以归结为套打，可以在论坛上搜索套打应该有相对应的贴子的。

WANGJUN0811 · 发表于 2008-12-31 20:19

但我的页面只有18行，需打印的数据有多有少的，请问怎么解决？谢谢！

WANGJUN0811 · 发表于 2008-12-31 20:26

我原来用最牛的办法是：先把5张页面设计好，再按条件查询，再设置打印区域，打印！哈哈放在最牛的E用法中，我看会算上最牛的啦！

WANGJUN0811 · 发表于 2008-12-31 20:35

月初1至5日就要用请热心的朋友费心一下，衷心的感谢！

WANGJUN0811 · 发表于 2008-12-31 21:24

在线等！！！！

WANGJUN0811 · 发表于 2008-12-31 22:43

论坛中高手如云应该能帮到我吧！！！！！！！

马拉桑 · 发表于 2009-1-1 00:16

这帖子曾对我很有帮助,楼主你也许可以参考,祝新年快乐

http://club.excelhome.net/dispbbs.asp?boardid=31&ID=287461

WANGJUN0811 · 发表于 2009-1-1 16:12

热心的朋友们，如果元旦没放假的话，帮我想想办法吧！

hmjhbcb1 · 发表于 2009-1-1 17:19

巡视记录卡.rar (16.97 KB, 下载次数: 31)
y = 7
i = Sheets("登记表").[b65536].End(xlUp).Row
For x = 3 To i
If Sheets("登记表").Cells(x, 2) = [q3] Then
Cells(y, 2) = Sheets("登记表").Cells(x, 3)
Cells(y, 3) = Sheets("登记表").Cells(x, 4)
y = y + 1
End If
If y > 24 Then
Range("b1:R25").PrintPreview '改为printout为打印,PrintPreview为打印预览
y = 7
[b7:c24] = ""
End If
Next
If y > 7 Then
Range("b1:R25").PrintPreview '改为printout为打印,PrintPreview为打印预览
End If
初学者,只能做成这样

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

[求助] 根据给定的条件打印？？（已解决）