Steve Capistrant
scapistrant at symphonyinfo.com
Thu Aug 21 09:29:29 CDT 2003
If Bryan's idea of printing straight to printer doesn't work, I think
Michael's code below is a good starting point for handling big mail merges
in bite sized pieces. But my guess is that you'll need to work with a temp
table, and flag the records that have already been sent, so each successive
round of sending to Word will capture the new ones. Plus, it is important
to work with a word template, because the result will be a series of
separate Word documents that are spawned (Document1, Document2...) from the
template.
Steve Capistrant
Symphony Information Services
scapistrant at symphonyinfo.com
Phone: 612-333-1311
www.symphonyinfo.com
212 3rd Ave N, Ste 404
Minneapolis, MN 55401
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Michael R
Mattys
Sent: Thursday, August 21, 2003 1:25 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Select Range of Records ...Word from Access
If you open a recordset and do
For i = 0 to rst.RecordCount
if i mod 600 = 0 then
.documents.add
end if
next
it should work...
Michael R. Mattys
www.mattysconsulting.com
----- Original Message -----
From: "William Hindman" <wdhindman at bellsouth.net>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Thursday, August 21, 2003 2:07 AM
Subject: Re: [AccessD] Select Range of Records ...Word from Access
> ...ok ...I thought that was the question I'd originally asked ...how do I
> "throw" 600 records into each doc? :)
>
> William Hindman
> So, then, to every man his chance -- to every man, regardless of his
birth,
> his shining golden opportunity -- to every man his right to live, to work,
> to be himself, to become whatever his manhood and his vision can combine
to
> make him -- this, seeker, is the promise of America.
> -- Thomas Wolfe
>
>
>
> ----- Original Message -----
> From: "Michael R Mattys" <michael.mattys at adelphia.net>
> To: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> Sent: Thursday, August 21, 2003 2:04 AM
> Subject: Re: [AccessD] Select Range of Records ...Word from Access
>
>
> > I don't know what you've got going into
> > each record, but if you were to throw 600
> > records into each document ... you wouldn't
> > run into a problem with either Word or the printer
> >
> > Maybe?
> >
> > Michael R. Mattys
> > www.mattysconsulting.com
> >
> >
> > ----- Original Message -----
> > From: "William Hindman" <wdhindman at bellsouth.net>
> > To: "Access Developers discussion and problem solving"
> > <accessd at databaseadvisors.com>
> > Sent: Thursday, August 21, 2003 1:11 AM
> > Subject: Re: [AccessD] Select Range of Records ...Word from Access
> >
> >
> > > Michael
> > >
> > > ...you say that as if you thought dumb and dumber here had a clue as
to
> > how
> > > I'd pull that off ...maybe its just that at 1AM my brain refuses to
> > engage
> > > in rational thought :)
> > >
> > > ...of course, many would say that's true even in the middle of the day
> :)
> > >
> > > William Hindman
> > > So, then, to every man his chance -- to every man, regardless of his
> > birth,
> > > his shining golden opportunity -- to every man his right to live, to
> work,
> > > to be himself, to become whatever his manhood and his vision can
combine
> > to
> > > make him -- this, seeker, is the promise of America.
> > > -- Thomas Wolfe
> > >
> > >
> > >
> > > ----- Original Message -----
> > > From: "Michael R Mattys" <michael.mattys at adelphia.net>
> > > To: "Access Developers discussion and problem solving"
> > > <accessd at databaseadvisors.com>
> > > Sent: Thursday, August 21, 2003 1:07 AM
> > > Subject: Re: [AccessD] Select Range of Records ...Word from Access
> > >
> > >
> > > > Of course, using this you could also add
> > > > a new document every 31 mb also ...
> > > >
> > > > Michael R. Mattys
> > > > www.mattysconsulting.com
> > > >
> > > >
> > > > ----- Original Message -----
> > > > From: "Michael R Mattys" <michael.mattys at adelphia.net>
> > > > To: "Access Developers discussion and problem solving"
> > > > <accessd at databaseadvisors.com>
> > > > Sent: Thursday, August 21, 2003 12:17 AM
> > > > Subject: Re: [AccessD] Select Range of Records ...Word from Access
> > > >
> > > >
> > > > > Bill,
> > > > >
> > > > > Having read this, it seems to me that you aren't
> > > > > really using a template at all. If you save the doc
> > > > > as .dot, this may help you for every 4 records:
> > > > >
> > > > > ---Posted by Dev Ashish---
> > > > >
> > > > > Opening a new Word document based on a
> > > > > template through Automation
> > > > >
> > > > > To open a new Word document based on an
> > > > > existing template, we need to specify a
> > > > > value for the Template argument of the
> > > > > Add method of the Documents collection.
> > > > >
> > > > > If the template file (.DOT) is saved in
> > > > > the UserTemplates path, we can use the
> > > > > pre-defined contant wdUserTemplatesPath.
> > > > > Otherwise, we will need to supply the
> > > > > complete path to the template file.
> > > > >
> > > > > '****** Code Start ********
> > > > > Private mobjWordApp As Word.Application
> > > > >
> > > > > Private Sub Command1_Click()
> > > > > Const conTEMPLATE_NAME = "\Templates\merge.dot"
> > > > >
> > > > > Set mobjWordApp = New Word.Application
> > > > > With mobjWordApp
> > > > > .Visible = True
> > > > > .WindowState = wdWindowStateMaximize
> > > > > .Documents.Add Template:=(.Options.DefaultFilePath( _
> > > > > wdUserTemplatesPath) & conTEMPLATE_NAME)
> > > > > End With
> > > > > End Sub
> > > > > '****** Code End ********
> > > > >
> > > > > Michael R. Mattys
> > > > > www.mattysconsulting.com
> > > > >
> > > > >
> > > > > ----- Original Message -----
> > > > > From: "William Hindman" <wdhindman at bellsouth.net>
> > > > > To: "Access Developers discussion and problem solving"
> > > > > <accessd at databaseadvisors.com>
> > > > > Sent: Wednesday, August 20, 2003 10:56 PM
> > > > > Subject: [AccessD] Select Range of Records ...Word from Access
> > > > >
> > > > >
> > > > > > ...ok ...just don't ask how I get into these things ...and if
this
> > > seems
> > > > > > like a JC post, I really don't want to hear about it :(
> > > > > >
> > > > >
> > > > > _______________________________________________
> > > > > AccessD mailing list
> > > > > AccessD at databaseadvisors.com
> > > > > http://databaseadvisors.com/mailman/listinfo/accessd
> > > > > Website: http://www.databaseadvisors.com
> > > >
> > > > _______________________________________________
> > > > AccessD mailing list
> > > > AccessD at databaseadvisors.com
> > > > http://databaseadvisors.com/mailman/listinfo/accessd
> > > > Website: http://www.databaseadvisors.com
> > >
> > >
> > > _______________________________________________
> > > AccessD mailing list
> > > AccessD at databaseadvisors.com
> > > http://databaseadvisors.com/mailman/listinfo/accessd
> > > Website: http://www.databaseadvisors.com
> >
> > _______________________________________________
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
>
>
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com