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.
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.