Excel Vba Adobe Pdf Printer

Posted on admin

It would be simpler to use.ExportAsFixedFormat rather than.PrintOut, and just stack your requests (no delay code needed): Sub ExporttoPDF Sheets('Sheet1').ExportAsFixedFormat xlTypePDF, 'C: Folder Filename1.pdf' Sheets('Sheet2').ExportAsFixedFormat xlTypePDF, 'C: Folder Filename2.pdf' End Sub Just replace the destinations and filenames, and this code should work fine. If you want to use a value in the sheet as part of a filename, then you can concatenate (&) like this: Sheets('Sheet1').ExportAsFixedFormat xlTypePDF, 'C: Folder ' & Range('P10').Value & '.pdf' Or store the filename in a variable and do it this way: dim filename as string filename = Range('P10').Value Sheets('Sheet1').ExportAsFixedFormat xlTypePDF, filename And it goes on and on.

Hi, I'm running Excel 2000 from the MS Office Premium on Win. XP Pro and have recently installed Acrobat Professional 7.0. Everything between Excel and Acrobat works fine when doing things manually. That is, I can use the 'Adobe PDF' printer driver, or I can click on one of the 3 new Adobe Icons on my button menu and everything works just fine. Regularly printing to Adobe PDF from Excel. Ask to replace existing PDF file' from the Printer Properties. Tagged excel vba excel-vba pdf printing.

Hi, I'm running Excel 2000 from the MS Office Premium on Win. XP Pro and have recently installed Acrobat Professional 7.0. Everything between Excel and Acrobat works fine when doing things manually. That is, I can use the 'Adobe PDF' printer driver, or I can click on one of the 3 new Adobe Icons on my button menu and everything works just fine. Now, when I use VBA, that's another matter. So far here is what has happened: I used the VBA command: ActiveWindow.SelectedSheet s.PrintOut Copies:=1, ActivePrinter:='Adobe PDF on Ne08:', PrintToFile:=True, Collate:=True, PrToFileName:=sSheetName & sSuffix & '.pdf' to print the file and got the error: When you create a postscript file you have to send the fonts. Please go to the printer properties, 'Adobe PDF Settings page and turn OFF the option 'Do not send fonts to Distiller'.

Adobe pdf printer

May 09, 2012 VBA, Excel, Printing to PDF. That is all that is required. Do you have an 'Adobe PDF' printer driver for printers. Install windows xp melalui usb. Reference is selected in VBA.

This I fixed easily enough, although not in an elegant way, I just went to the Win. Printer folder, pulled up the printer's properties and made this setting unchecked by default.

Adobe Pdf Printer Driver

That saved me having to figure out how to programmatically change it. With a little tweaking of the code and all seemed good, my program was rifling through the sheets and creating pdf's from them. Then I tried to open the PDF's and no go. I tried various combinations of the PrintOut command, the most recent being: Range(ActiveSheet.PageSetu p.PrintAre a).PrintOu t Copies:=1, Preview:=False, ActivePrinter:='Adobe PDF on FILE:'PrintToFile:=True, Collate:=TruePrToFileName:=sFile no change in result. So far I have determined that the error in the PDF doc.

Seems to be related to the fonts missing. I only say this because I tried opening the file in Illustrator (AI) and got prompted for the fonts and then once AI got past that I saw a whole bunch of text missing or partially form but the rest like the lines in the sheet and so on seemed fine in the PDF file. Adobe Reader just refuses to open the file so AI is obviously more forgiving. I'm wondering if anyone has come across this problem and has a fix or workaround. If I new the command line args to Distiller I might just send the XLS file to Distiller using something like Shell(.) but I would need to know how to specify the sheet in the file and the file name I wanted as a result and Adobe doesn't seem to document that anywhere easy to find.

How To Add Adobe Pdf Printer

Any help will be appreciated. Update: I just tried this: Range(ActiveSheet.PageSetu p.PrintAre a).PrintOu t Copies:=1, Preview:=False, ActivePrinter:='Adobe PDF on Ne08:'PrintToFile:=False, Collate:=True And it worked in the sense that it created a file that is without errors. However, it of course now prompts me for a file name which defeats the purpose of using code to do the job. Just out of curiosity I tried this: Range(ActiveSheet.PageSetu p.PrintAre a).PrintOu t Copies:=1, Preview:=False, ActivePrinter:='Adobe PDF on Ne08:'PrintToFile:=False, Collate:=TruePrToFileName:=sFile saying 'don't print to a file' but still supplying a filename, it didn't solve anything.