Print to Adobe PDF

[AAAAndy]

I have a list of names, and currently I enter each name one at a time into a report and print that report. I need the macro to cycle through all the names in the list, and print the report for that name. I have to print to Adobe PDF.

Can I write a macro to print from an Excel (2007) worksheet as an Adobe PDF? I would generate the file name in the worksheet and then save the PDF with that name. Then I need Adobe to close that PDF file - it need not close the Adobe application.

Thanks!

 

[BrianB]

Not sure what you mean by

I have to print to Adobe PDF

and mentioning closing Abobe.

Does 2007 not have a "Save as PDF" option ? I see this is appearing in all sorts of applications nowadays.

There are nowadays several applications, some free, that disguise themselves as a printer and are used as such. They usually prompt for a pdf filename - which might be a problem when using VBA

I used a free one called PDF995 for some years, but seem to have picked up a couple more which have installed via other applications I use - and don't have the advertising (which is not a problem).

I think 'PDF Create' from Nuance was free with Omnipage or Paperport. I have both.This installs a printer driver as described as well as adding toolbar buttons to Office applications.

I must have got 'Docucom PDF driver' free with something. I see it is free 30 day trial & $49 to buy.

Hope this helps. Basic code below

'=============================================================================
'- PRINT WORKSHEET USING LIST OF NAMES
'- assumes the list is in column A, row 2 down.
'- this is just an outline
'- not doing anything with the actual name
'=============================================================================
Sub test()
    Dim LastRow As Long
    Dim MyName As String
    '-------------------------------------------
    LastRow = Range("A65536").End(xlUp).Row
    For r = 2 To LastRow
        MyName = ActiveSheet.Cells(r, 1).Value
        Worksheets("something").PrintOut
    Next
    '-------------------------------------------
End Sub

If you do not receive a reply to your message after a couple of days you can reply to your own message (some just put "bump") to bring it to the top again.