Print naar bestand werkt bij mij niet meer

Status
Niet open voor verdere reacties.

AnnevdD

Verenigingslid
Lid geworden
8 mei 2007
Berichten
228
Ik heb met afdruksamenvoegen een brievenbestand gemaakt. Per brief twee pagina's.
Ik wil met een macro de afzonderlijke brieven elk in een bestand zetten waarbij in de bestandsnaam van elke brief het lidnummer staat.
Dat heb ik al een aantal keren gedaan, een jaar geleden voor het laatst.
Nu ik het weer wil doen krijg ik een foutmelding "Fout 5142 tijdens uitvoering: Afdrukken in Word is niet mogelijk vanwege een probleem met de printerinstellingen."
Het Printstatement luidt:
Application.PrintOut OutputFileName:=PrintBestand, Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="2", PageType:= _
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
De printer heb ik gedefinieerd met
ActivePrinter = "Microsoft Print to PDF"
Het printbestand is een testbestand met als extensie ".pdf"

Ik heb met "macro opnemen" het bestand handmatig geprint, dat werkte en de opgenomen macro luidt:
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="2", PageType:= _
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
Vreemd genoeg komt de naam van het aangemaakte testbestand niet in die opgenomen macro terug.

Ik heb geprobeerd om FileName:="" ter vervangen door Filename:="testbestand.pdf". Maar dat levert als foutmelding op: "Fout 5174 tijdens uitvoering: Uw bestand is niet gevonden. Het is mogelijk verplaatst of verwijderd of de naam ervan is gewijzigd."
Daarom heb ik "Filename:=" gewijzigd in "OutputFileName:=" zoals ik dat vorige jaren gebruikte. Maar dat levert de eerder genoemde foutmelding op.

Ik denk dat er iets gewijzigd is bij Microsoft, of zie ik iets over het hoofd?

Graag advies hoe ik dit moet aanpakken.
 
Ja, dat weet ik. Maar ik wil tig keer twee pagina's als een apart bestand opslaan. Dat lukt me niet met opslaan als pdf.
Daarom heb ik deze ïngewikkelder route gekozen.
Als je daar wel een mogelijkheid voor ziet dan hoor ik dat graag, maar anders blijft mijn vraag staan.
 
Dit slaat 5x pagina's 2 en 3 op in PDF formaat als Test_1.pdf t/m Test_5.pdf:
Code:
For i = 1 To 5
    ActiveDocument.ExportAsFixedFormat _
      "C:\Users\AnnevdD\Desktop\Test_" & i & ".pdf", _
      wdExportFormatPDF, _
      False, _
      wdExportOptimizeForPrint, _
      wdExportFromTo, _
      2, _
      3
Next i

Die paginanummers mogen uiteraard ook variabelen zijn.

Tip:
Maak gebruik van Intellisense.
Voorbeeld van ActiveDocument.ExportAsFixedFormat:
Capture.JPG
 
Laatst bewerkt:
Hartelijk dank. Het werkt perfect zo. Mijn klus is geklaard.
Dank voor je hulp.

Blijft de vraag waarom ik die foutmelding "Fout 5142 tijdens uitvoering: Afdrukken in Word is niet mogelijk vanwege een probleem met de printerinstellingen." kreeg.
Dat zou toch ook moeten werken?
 
Daar heb ik verder niet naar gekeken en er dus geen antwoord op.
 
Iemand anders misschien die me kan vertellen waarom een vaker gebruikt print statement nu niet (meer) werkt?
En wat ik moet doen om dat wel te laten werken.
 
Probeer dit eens:

1. Press windows key + R.
2. Type 'regedit' in the Open box, and then click OK.
3. Locate, and then click the following registry subkey if it exists: HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\PostSPUpgrade On the Edit menu
4. click Delete, and then click Yes to confirm the removal of the PostSPUpgrade registry key.
5. Restart your PC
 
Laatst bewerkt:
Dank voor je suggestie, maar ik heb de PostSPUpgrade entry niet.
 
Je moet geen argumenten benoemen die een methode niet (her)kent.

Gebruik:

Code:
Sub M_pdf()
   ActiveDocument.PrintOut  0,,,"G:\OF\voorbeeld.PDF"
end sub
 
Laatst bewerkt:
Ja, dit werkt.

Hartelijk dank.



Beide helpers hartelijk dank. Ik heb weer een boel geleerd.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan