![]() After reading your message, I removed the reference to PDFCreator and it worked (I mean it stopped displaying this error). Thank you in advance, and please, forgive me if I do not observe any rule or etiquette, this is my first time posting a question. "SetDefaultPrinter" Is a function that sets its argument as the default printer. Ie.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER,, MsgBox ("Could not load the page " & sURL) PDFFilename = WS.Cells(i, lastCol -1).Value ![]() SetDefaultPrinter "Nitro PDF Creator 2 (Reader)" MsgBox ("Could not load Internet explorer") ![]() Set ie = CreateObject("InternetExplorer.Application")Īpplication.Wait ((Now() + TimeValue("00:00:1"))) LastCol = WS. + WS.UsedRange.Columns(1).Column - 1 LastRow = WS. + WS.UsedRange.Rows(1).Row - 1 How could avoid this "Create PDF" dialog? I have searched many similar posts, but I did not find anything helpful for this case. I read the macro that follows, which it prints the pages, but it stops for each page, asking the filename. I'm trying to print each web page as PDF file, using the "Nitro PDF Reader 2", without any interactivity, that is, having the macro to read the filename for each page from the Excel sheet. I have in an Excel sheet some URLs in one columns and the corresponding file names in a second column. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |