Replies

Assume you have found the answer. As a help to others reading this post, to suppress Save as dialog, open pdf995.ini and add the line Output File=SAMEASDOCUMENT.

Thanks Hans – quite correct. I just realised this morning that I had to add some code to get the extensibility object as we now have Document Management Software, and this module did not have it. Once this was added, the original code worked a treat. Thanks so much again for your help, sorry to waste your time.

Thanks William – Yes it WORKED formatted as hidden text. Why did I not think of that one !! You wouldn’t believe the time I’ve spent on this, not to mention the “googling”. Seems the problem isn’t restricted to trying to print to pdf995 driver either. Code execution just stops after Application.PrintOut, no matter what ranges, page numbers etc are set.

Anyways, thanks Hans, Andrew and William – invaluable site for me

Correct Hans. Problem with full version is licensing, as many users need to access this project. Having said I’m getting the full version loaded – will post back

No go … anything after Application.PrintOut is ignored. I’m still trying go strip the last section break prior to pdf, however headers/footer get jumbled. Any other ideas out there ?

Thanks Andrew – will give it a try but don’t hold out much hope, as I’ve tried actually printing the current page only and that’s a no go. Have also deleted the section prior to pdf, which works, although bit of mucking around if penultimate page has a different header / footer etc.

As to why we have the section break – our template system is object oriented, and where a document contains multiple pages , i.e, a letter (over one page, and a form, or such) the document variables are populated with print codes and name codes for each. We then have print buttons which allow user to print various copies of each/all pages based on these document variables.

Will give your suggestion a go, crossing fingers, although I gotta say, it’s as if all code following Application.PrintOut is ignored by pdf995 driver.

Thanks Hans. Seems that pdf995 totally ignores anything that follows Application.PrintOut, as I even tried just printing the current page – again, no go. The whole document went to pdf. Hope someone may chime in here with a workaround.

Sorry Hans – it won’t actually strip that last blank page from the document, so the pdf still includes a blank page. Where the document contains 4 pages I only want to “pdf” 3 pages, as the last page is always blank, due to section break at the end. I can’t remove that section break as it contains formatting info etc. I thought it would be an easy thing to just set intRage equal to number of pages in the document minus 1 but it isn’t working. I can manually print the pdf driver, selecting pages 1-3 and the blank page is stripped, but with this code it remains.

After a few weeks (months !) of frustration with having to turn the ruler back on when it goes missing I feel I may have solved this problem and hope to help out anyone in the Lounge still “suffering”. Having exhausted Word settings etc., browsing posts here regarding feedback with animation etc., I’ve just discovered (on using another machine here) what caused my problem.

I noticed that when viewing a document in Print Preview on another machine, the ruler was still displaying (in Print Preview) whereas on my machine it wasn’t. After playing around a bit, discovered that my ruler would remain in PageLayout view, after using Print Preview, however, if I then opened a new blank document the ruler would then “disappear”. Seems that View Ruler needs to be ticked in the Print Preview view as well as PageLayout/Normal view. No more disappearing ruler.

Hi Sharon

Place a bookmark “obmkNumber” at the place the invoice number is to be inserted. Create an AutoNew module in your template with the following code

Dim iUsageCount As Integer
Dim sUsageCount As String
iUsageCount = Val(System.PrivateProfileString(“c:IncrementNumber.txt”, sFileName, “Number”))
iUsageCount = iUsageCount + 1
sUsageCount = CStr(iUsageCount)
Selection.GoTo What:=wdGoToBookmark, Name:=”obmkNumber”
Selection.TypeText sUsageCount
System.PrivateProfileString(“c:IncrementNumber.txt”, sFileName, “Number”) = sUsageCount

No need to create the txt file as it will be automatic. That’s if you want to start numbering from 1 – if you need to change the “start” number, just edit c:IncrementNumber.txt and insert your start number. This template will then have to be run on the same machine to keep the numbering consistent. Hope this helps.

Cheers
Lorraine

Posted too soon – just found the answer …. easy as

.SearchSubFolders = True

Thanks again.

That’s it – very obvious I would say, but not a statement I knew about – Thanks so much William. Now another little snag – How do I also cycle through the documents in any sub-folders as well ?

OOoops – jumped the gun with my reply – however, I’m sure someone will help out. Sorry I had my upside-down glasses on.

Thanks Hans. That code works in background which is far neater. I didn’t receive the pdf I wanted – instead an error page printed “Your application needs to be configured for printing to a PostScript Language Level 2 printer”. My work colleague said he’ll take a look in the PostScript Printer options tomorrow and then it should work a treat.

Thanks for that Jefferson … I’ve found the post from Kevin in VBA, subject “More PDF fun” … so I’m off to give it a go.