Serie Word-documenten alleen 1e pagina printen

[Senso]

Serie Word-documenten alleen 1e pagina printen. Alle documenten (.docx) staan in één map met als kenmerk/overeenkomsten in alle bestandsnamen *INDEX Jaarordner* Ik kan ze ook in één map zetten.
volledig voorbeeld naam:
_31_INDEX Jaarordner _Blad _AANGIFTE BELASTINGDIENST.docx
Telkens één voor één openen is lastig.
Is er een oplossing voor? Freeware?

Als ik RMK doe > Afdrukken, krijg ik niet het printerscherm maar begint gelijk af te drukken (alles in een document).

VBA-code geen ervaring met/in Word!

[VBA]Sub PrintAll()

Dim fso As FileSystemObject
Dim fldr As Folder
Dim f As File
Dim myDoc As Document
Const TARGET_FOLDER As String = "C:\Temp\"

Set fso = New FileSystemObject
Set fldr = fso.GetFolder(TARGET_FOLDER)
For Each f In fldr.Files
If Right(f.Name, 4) = ".docx" Then
Set myDoc = Documents.Open(TARGET_FOLDER & f.Name)
myDoc.PrintOut
myDoc.Close False
' you could append a log file here
End If
Next f

End Sub[/VBA]

 

[Senso]

Helaas werkt onderstaande niet. Foutopsporing blijft blanco bij opening in de VBA-editor. Ik deed F8 stap, stap en toen werd één pagina van één document geprint. Ik heb twee documenten in een map staan.

Sub PrintAllWordDocs
Dim strPath As String
strPath = "E:\test\"
strFileName = Dir(strPath + "*.docx", vbNormal)
Do While strFileName <> ""
 Documents.Open FileName:=strPath + strFileName, ConfirmConversions:=False, _
 ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
 PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
 WritePasswordTemplate:="", Format:=wdOpenFormatAuto
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
 wdPrintDocumentContent, Copies:=1, Pages:="1", PageType:=wdPrintAllPages, _
 ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
 False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
 PrintZoomPaperHeight:=0
Documents.Close
strFileName = Dir
Loop
End Sub

 

[edmoor]

Probeer dit eens:

Sub PrintAllDocx()
    Dim vDirectory As String
    Dim oDoc As Document
    Dim fDoc As String
 
    vDirectory = "C:\Temp\"
    fDoc = Dir(vDirectory & "*.docx")
    Do While fDoc <> ""
        Set oDoc = Documents.Open(FileName:=vDirectory & fDoc)
        oDoc.PrintOut Range:=wdPrintCurrentPage
        oDoc.Close SaveChanges:=False
        fDoc = Dir
    Loop
End Sub

NB:
Voor het aan elkaar plakken van strings gebruik je geen + maar &.

 

[Senso]

Waar staat jouw Pad c:\temp\ vervangen door E:\test\ ?

Er wordt constant maar één pagina van één document geprint en dan stopt het. Document wordt niet afgesloten. Stop.

fout?
oDoc.PrintOut Range:=wdPrintCurrentPage

en 5322

 

[edmoor]

Daar plaats je uiteraard de folder waar de docx documenten staan.
Ik heb "C:\Temp\" gebruikt omdat je dat zelf deed in #1.
Je mag er dus ook "E:\test\" van maken.

Bericht automatisch samengevoegd: Vandaag om 12:30

Er wordt constant maar één pagina van één document geprint en dan stopt het. Document wordt niet afgesloten. Stop.

fout?
oDoc.PrintOut Range:=wdPrintCurrentPage

en 5322

Het werkt hier prima, geen idee waarom bij jou niet.
Per document wordt alleen pagina 1 afgedrukt, zoals je vroeg.
Schijfruimte?
Geheugen vol?
Dat is wat fout 5322 zegt.

 

[Senso]

Ja, dat is altijd zo. Bij mij werkt het dan niet. Dat heeft niets met geheugen/schijfruimte te maken. Allemaal flauwekulmeldingen. Net als in Excel de openstaande documenten worden niet afgesloten en dan stopt het proces. Laat verder maar zitten. Bedankt voor de hulp. Einde verhaal.

 

[edmoor]

Aan de code ligt het in ieder geval niet, die is goed.

 

[Senso]

Ja, dat zal zo zijn. Helaas zie ik keer op keer dat ik documenten moet herstellen en dat ze niet goed zijn afgesloten, dan sluit ik af en dan staat dat systeemicoontje van het document er nog (bleke icon). Dat sleep ik dan in de prullenbak.

 

[edmoor]

Kan je het Word document waarin je die code hebt gezet hier eens plaatsen?

 

[Senso]

Bedankt voor het aanbod. Ik ga dat niet doen. Genoeg tijd ingestopt en ik moet door met mijn werk. Ik probeer juist met dergelijke zaken tijd te besparen maar het tegengestelde gebeurd.

 

[edmoor]

Het blijft wel vreemd dat oplossingen die je hier door mij of anderen aangeboden krijgt bij jou vaak niet werken. Ik zou dan graag naar de oorzaak zoeken. Maar goed, dan sluiten we deze af.

 

[snb]

Er wordt niet verteld vanuit welke applicatie deze code wordt gestart.

 

[edmoor]

Bij mij vanuit een Word document.
Vandaar dus mijn verzoek om het verwachte Word document.

 

[Senso]

Ik werk met versie Word en Excel 2007 H&S. De macro in dit geval vanuit Word. Daardoor zal het wel niet werken want in Excel heb ik dezelfde problemen. Onlangs nog. Blijkbaar is er een probleem met het afsluiten van documenten in deze Office-versie. De oorzaak vinden kost je twee dagen en dan weet je het nog niet.

Ik heb de laatste tijd veel werk verricht ook met rendement. Dus het gaat met problemen ook vaak wel goed. Echter, je moet ergens een grens stellen. Vijf uur besteden aan iets wat toch vrij simpel moet zijn is voor mij wel een grens.

 

[edmoor]

Ook in Office 2007 heb ik daar nooit problemen mee gehad.
Niet in Excel en ook niet in Word.
Het zal echt een andere oorzaak hebben.

 

[Senso]

Ja, goed, dat zijn vervelende zaken. Onlangs heb jij ook geholpen en daar was het een Excel-bestand dat niet wilde afsluiten. Wat is er aan de hand als een geopende bestand links constant vraagt om een keuze te maken welk bestand te herstellen en het bleke icoontje (systeembestand) aanwezig blijft ook als het document handmatig gesloten is? Normaal verdwijnt dit direct bij afsluiten.

 

[edmoor]

Dat gebeurt als het geopende object niet wordt gesloten.
Dat wordt in de gegeven code wel gedaan en kennelijk gaat het daar bij jou ergens niet goed.
Heb je al eens een online herstel laten uitvoeren voor die Office 2007 installatie?