设为首页收藏本站Access中国
开启辅助访问 切换到宽版

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步，快速开始

Office中国论坛/Access中国论坛»论坛首页 › ACCESS 与Sql Server 讨论区 › Access常规交流 › 合并打印挑战性问题!
返回列表 发新帖
查看: 826|回复: 6
打印 上一主题 下一主题

[Access本身] 合并打印挑战性问题!

[复制链接]
lc96102
跳转到指定楼层
1#
发表于 2007-7-21 05:47:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
< ><FONT size=3>我有一个<FONT face="Times New Roman">access </FONT>或<FONT face="Times New Roman"> excel. </FONT>表格如下<FONT face="Times New Roman">:</FONT></FONT></P>
<TABLE  cellSpacing=0 cellPadding=0 width=515 border=0>

<TR >
<TD  vAlign=bottom noWrap width=75>
< >Name<o:p></o:p></P></TD>
<TD  vAlign=bottom noWrap width=132>
< >Product<o:p></o:p></P></TD>
<TD  vAlign=bottom noWrap width=97>
<P >Brand<o:p></o:p></P></TD>
<TD  vAlign=bottom noWrap width=211>
<P >Email<o:p></o:p></P></TD></TR>
<TR >
<TD  vAlign=bottom width=75>
<P >111<o:p></o:p></P></TD>
<TD  vAlign=bottom width=132>
<P >LM339D<o:p></o:p></P></TD>
<TD  vAlign=bottom width=97>
<P >ST<o:p></o:p></P></TD>
<TD  vAlign=bottom width=211>
<P ><U><a href="mailto:111@111.com" target="_blank" >111@111.com</A><o:p></o:p></U></P></TD></TR>
<TR >
<TD  vAlign=bottom width=75>
<P >111<o:p></o:p></P></TD>
<TD  vAlign=bottom width=132>
<P >LM8481<o:p></o:p></P></TD>
<TD  vAlign=bottom width=97>
<P >ST<o:p></o:p></P></TD>
<TD  vAlign=bottom width=211>
<P ><U><a href="mailto:111@111.com" target="_blank" >111@111.com</A><o:p></o:p></U></P></TD></TR>
<TR >
<TD  vAlign=bottom width=75>
<P >111<o:p></o:p></P></TD>
<TD  vAlign=bottom width=132>
<P >LM5544<o:p></o:p></P></TD>
<TD  vAlign=bottom width=97>
<P >ST<o:p></o:p></P></TD>
<TD  vAlign=bottom width=211>
<P ><U><a href="mailto:111@111.com" target="_blank" >111@111.com</A><o:p></o:p></U></P></TD></TR>
<TR >
<TD  vAlign=bottom width=75>
<P >111<o:p></o:p></P></TD>
<TD  vAlign=bottom width=132>
<P >473GX5<o:p></o:p></P></TD>
<TD  vAlign=bottom width=97>
<P >NIC<o:p></o:p></P></TD>
<TD  vAlign=bottom width=211>
<P ><U><a href="mailto:111@111.com" target="_blank" >111@111.com</A><o:p></o:p></U></P></TD></TR>
<TR >
<TD  vAlign=bottom width=75>
<P >222<o:p></o:p></P></TD>
<TD  vAlign=bottom width=132>
<P >LM339D<o:p></o:p></P></TD>
<TD  vAlign=bottom width=97>
<P >ST<o:p></o:p></P></TD>
<TD  vAlign=bottom width=211>
<P ><U><a href="mailto:222@222.com" target="_blank" >222@222.com</A><o:p></o:p></U></P></TD></TR>
<TR >
<TD  vAlign=bottom width=75>
<P >222<o:p></o:p></P></TD>
<TD  vAlign=bottom width=132>
<P >A<st1:chmetcnv w:st="on" TCSC="0" NumberType="1" Negative="False" HasSpace="False" SourceValue="3" UnitName="C">3C</st1:chmetcnv><o:p></o:p></P></TD>
<TD  vAlign=bottom width=97>
<P >HIR<o:p></o:p></P></TD>
<TD  vAlign=bottom width=211>
<P >222@222.com<o:p></o:p></P></TD></TR>
<TR >
<TD  vAlign=bottom width=75>
<P >222<o:p></o:p></P></TD>
<TD  vAlign=bottom width=132>
<P >201<o:p></o:p></P></TD>
<TD  vAlign=bottom width=97>
<P >ON<o:p></o:p></P></TD>
<TD  vAlign=bottom width=211>
<P >222@222.com<o:p></o:p></P></TD></TR>
<TR >
<TD  vAlign=bottom width=75>
<P >222<o:p></o:p></P></TD>
<TD  vAlign=bottom width=132>
<P >014D<o:p></o:p></P></TD>
<TD  vAlign=bottom width=97>
<P >UI<o:p></o:p></P></TD>
<TD  vAlign=bottom width=211>
<P >222@222.com<o:p></o:p></P></TD></TR></TABLE>
<P ><o:p><FONT face="Times New Roman" size=3> </FONT></o:p></P>
<P ><FONT size=3>请问可否用合并打印发邮件功能分别发电邮给不同的<FONT face="Times New Roman">name.<o:p></o:p></FONT></FONT></P>
<P ><FONT size=3>即是<FONT face="Times New Roman">:</FONT></FONT></P>
<P ><o:p><FONT face="Times New Roman" size=3> </FONT></o:p></P>
<P ><FONT size=3>将<FONT face="Times New Roman">111</FONT>的资料发给</FONT><U><a href="mailto:111@111.com" target="_blank" >111@111.com</A></U></P>
<TABLE  cellSpacing=0 cellPadding=0 width=268 border=0>

<TR >
<TD  vAlign=bottom noWrap width=154>
<P >Product<o:p></o:p></P></TD>
<TD  vAlign=bottom noWrap width=114>
<P >Brand<o:p></o:p></P></TD></TR>
<TR >
<TD  vAlign=bottom width=154>
<P >LM339D<o:p></o:p></P></TD>
<TD  vAlign=bottom width=114>
<P >ST<o:p></o:p></P></TD></TR>
<TR >
<TD  vAlign=bottom width=154>
<P >LM8481<o:p></o:p></P></TD>
<TD  vAlign=bottom width=114>
<P >ST<o:p></o:p></P></TD></TR>
<TR >
<TD  vAlign=bottom width=154>
<P >LM5544<o:p></o:p></P></TD>
<TD  vAlign=bottom width=114>
<P >ST<o:p></o:p></P></TD><

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有帐号？注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
回复

使用道具 举报

Grant
2#
发表于 2007-7-21 08:33:00 | 只看该作者
<>不是很明白下列说法不知道对不对</P>
<>用循环来输出发送的邮件内容</P>
<>可以用ADO来完成.</P>
回复 支持 反对

使用道具 举报

lc96102
3#
 楼主| 发表于 2007-7-22 03:32:00 | 只看该作者
謝謝! 能否提供個例子阿? 麻煩你了.
回复 支持 反对

使用道具 举报

lc96102
4#
 楼主| 发表于 2007-7-24 07:06:00 | 只看该作者
any body help me.
回复 支持 反对

使用道具 举报

Grant
5#
发表于 2007-7-24 07:30:00 | 只看该作者
<>稍等,给你写一个方法~</P>
回复 支持 反对

使用道具 举报

Grant
6#
发表于 2007-7-24 09:20:00 | 只看该作者
<>rivate Sub Command0_Click()<BR>Dim rs As ADODB.Recordset<BR>Set rs = New ADODB.Recordset</P>
<>strSQL = "select * from [1] where name in(111,222)"  '这里可以用变量<BR>rs.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic</P>
<P>MsgBox rs.RecordCount<BR>Do While Not rs.EOF</P>
<P>'这里调用邮件调用模块</P>
<P><BR>rs.MoveNext '进入下一条纪录<BR>Loop</P>
<P>    rs.Close<BR>    Set rs = Nothing<BR>End Sub</P>
回复 支持 反对

使用道具 举报

poly
7#
发表于 2007-7-24 10:01:00 | 只看该作者
不懂
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-9-22 09:48 , Processed in 0.088045 second(s), 31 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表