批量打印引用有条件查询的报表

阿松

报表是引用的是一个查询，该查询是有字段条件的。比如查询是员工信息，报表已经设计成每个员工的信息（单独的，页眉等已经设计好了），启动报表时要求输入员工姓名，但每次只能打一张。如果同时打多个员工的信息如何做呢？我可以做一个表放入我要打印的员工姓名，但如何运用宏去做呢？如果不行，是不是必须要重新设计一个批量查询和报表？

pascal331

aknier 发表于 2011-3-31 15:40
Private Sub Command0_Click()
Dim strT As String
Dim vItem As Variant

打印在id字段中所有包含strT值的人员（不知道我理解的对不对）

wuheng

学习了~~~~~~~````，谢谢

aknier

Private Sub Command0_Click()
Dim strT As String
Dim vItem As Variant
For Each vItem In Me.List1.ItemsSelected
strT = strT & vItem & ","
Next
DoCmd.OpenReport "人员打印表", acViewPreview, , "id in (" & strT & "0)"

红色标记的能及解释下，什么意思？
End Sub

momocaicai

藏书不难，能看为难；看书不难，能读为难；
  读书不难，能用为难；能用不难，能记为难。藏书不难，能看为难；看书不难，能读为难；
  读书不难，能用为难；能用不难，能记为难。藏书不难，能看为难；看书不难，能读为难；
  读书不难，能用为难；能用不难，能记为难。

ldshuishijie

很好

阿松

我尝试把下面那段代码
For Each vItem In Me.List1.ItemsSelected
改成引用"人员打印"表,但一直没有成功.不知道如何写.自己都觉得自己太菜了.
因为我实际是从其他地方把大量数据拷贝到表里面再打印,一个个点太费时.而且容易错.就是把窗体的行来源改成"人员打印"表,也还是要点.
还有一点我不明白:循环是For Each .... Next 但DoCmd是在外面,为什么会打好几页呢?

sgrshh29

阿松 发表于 2010-10-28 21:20
谢谢您,我明天到公司里试一下.
我把窗体中的行来源改成(表:人员打印),因为我不需要打印每个人员,只打印我需 ...

你需要打印哪几个人员，就先在列表中选中那几个人，然后打印就可以了。

sever_L

非常感谢

阿松

谢谢您,我明天到公司里试一下.
我把窗体中的行来源改成(表:人员打印),因为我不需要打印每个人员,只打印我需要打印的人员.您的我修改的我都会试一下.再高手您我的结果.