Pete_UK
Fri Mar 14 21:04:52 CDT 2008
I still have the Adobe printer driver installed, so have just checked
- click on Preferences in the driver and you have several choices, one
of which is "Adobe PDF Output Folder". Here you can choose between
"Prompt for PDF filename" or "My Documents\*.pdf" so you set it up
with the second of these if you don't want to be asked for a filename
everytime around the loop.
Hope this helps.
Pete
On Mar 15, 1:29=A0am, Pete_UK <pashu...@auditel.net> wrote:
> I haven't used it for a couple of years, but I think there are several
> options that you can set in the Adobe printer driver, one of which is
> to set the filename the same as the Excel filename - that's the way I
> set it anyway, as the filename had been built up from individual names
> and a datestamp for that month.
>
> Pete
>
> On Mar 15, 12:29=A0am, fedude <fed...@discussions.microsoft.com> wrote:
>
>
>
> > Pete,
>
> > I don't see where you set the pdf filename? =A0 When I tried a similar c=
ode
> > snippet, the adobe distiller opened up a "save as filename" dialog. =A0 =
I can
> > probably suppress the dialog in distiller somewhere, but I still need to=
> > assign the pdf filename via VB.
>
> > Still perplexed.......
>
> > "Pete_UK" wrote:
> > > Here's a snippet of code that I put together a few years ago to do a
> > > similar thing:
>
> > > =A0 =A0 =A0 =A0 =A0 =A0 my_file =3D ActiveCell.Value
> > > =A0 =A0 =A0 =A0 =A0 =A0 If my_file <> "" _
> > > =A0 =A0 =A0 =A0 =A0 =A0 Then
> > > 'as long as it is not blank, open the file, change
> > > 'to the Adobe printer, and print the pdf file
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 ChDir (this_client)
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 Workbooks.Open Filename:=3Dmy_file
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 my_printer =3D Application.ActivePrint=
er
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 Application.ActivePrinter =3D "Adobe P=
DF on Ne02:"
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 ActiveWindow.SelectedSheets.PrintOut C=
opies:=3D1, _
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 ActivePrinter:=3D"Adobe PDF on=
Ne02:", Collate:=3DTrue
> > > 'switch back to installed printer driver
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 Application.ActivePrinter =3D my_print=
er
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 ActiveWorkbook.Close
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 ChDir ("..")
> > > =A0 =A0 =A0 =A0 =A0 =A0 Else
> > > 'if the filename is blank, then don't check any more
> > > =A0 =A0 =A0 =A0 =A0 =A0 j =3D num_users
> > > =A0 =A0 =A0 =A0 =A0 =A0 End If
>
> > > Excel files were stored in sub-directories under the name of the
> > > client, and were written to a sheet in the master file such that each
> > > filename for a particular client was in the same column. A loop cycled=
> > > through each client and then through each filename from the sheet, so
> > > my_file was opened in sequence and a .pdf file of the same name was
> > > written to the same sub-folder and then my_file was closed in
> > > readiness for the next one. You might need to change Ne02 (twice) to
> > > Ne01 to suit your requirements.
>
> > > This was using Adobe Acrobat v7, but you might be able to adapt it to
> > > suit your circumstances.
>
> > > Hope this helps.
>
> > > Pete
>
> > > On Mar 14, 1:28 am, fedude <fed...@discussions.microsoft.com> wrote:
> > > > =A0 I'm trying to write a routine that will print a pdf page. =A0 I =
need to make
> > > > this a routine because I have to loop through a large set of data an=
d print a
> > > > pdf page for each row of the data.
>
> > > > My typical method for writing a routine is to record a macro and the=
n modify
> > > > the module I created. =A0 Unfortunately, when I print to pdf using a=
crobat
> > > > distiller, the macro does not record all the steps. =A0 In particula=
r is does
> > > > not collect the filename or location. =A0 Here is the macro I create=
d when I
> > > > recorded my keystrokes:
>
> > > > Sub pdfPrint()
> > > > =A0 =A0 ActiveWindow.SelectedSheets.PrintOut Copies:=3D1, Collate:=
=3DTrue
> > > > End Sub
>
> > > > I need to specify the filename and location in the macro (different =
for each
> > > > row). =A0
> > > > Maybe I should be using another tool for creating the pdf files? =A0=
Any help
> > > > would be appreciated.
>
> > > > Ecxel 2003/Acrobat Distiller 5- Hide quoted text -
>
> > - Show quoted text -- Hide quoted text -
>
> - Show quoted text -