[WORD] Automatisch afdrukken document

[Verwijderd]

Kan ik met een batch file automatisch een word document laten printen ? Net zoiets als rmk afdrukken in windows maar dan automatisch dus.

Ben nu tot zover

c:\progra~1\micros~2\office\winword p:\test.doc

[DaRoot]

Plaats een snelkoppeling naar je printer op je bureaublad, en sleep het document vanuit de verkenner er naar toe... zou ook moeten werken...

Edit:
moet dus persé via batch file...
Als ik vragen mag, wat is precies de bedoeling? misschien wil het wel op een andere manier dan via een batch file...

[ Voor 37% gewijzigd door DaRoot op 05-06-2003 15:51 ]

[Super_ik]

volgens mij moet je bij c:\progra~1\micros~2\office\winword p:\test.doc nog -print of -p doen ofzoiets, is vast wel te vinden op google ofzo

[F_J_K]

Microsoft.com -> WD: Word Startup (Command-Line) Switches and Their Purpose
en dan een macro aanroepen. Alternatief: kijk hoe het in je register gebeurt.

[Verwijderd]

/print -print -p /p werken helaas niet

[Verwijderd]

/mmacronaam werkt alleen sluit hij word daarna niet af

[djluc]

mag je niet gewoon het print commando geven o.i.d.?

code:

print c:\program files\word\word.exe c:\mijn documenten\document.doc

[Verwijderd]

Het enige nadeel van het commando print is dat hij niet het juiste programma erbij gebruikt. Dus dan print hij IQ@Y(#*@)*(#&)$(^)@($)(#@*)9 (onzin dus )

[djluc]

Das toch jammer idd

/mmacronaam werkt alleen sluit hij word daarna niet af

Dan laat je het macro word toch gewoon afsluiten?

[Verwijderd]

djluc schreef op 05 June 2003 @ 17:47:
Das toch jammer idd

[...]

Dan laat je het macro word toch gewoon afsluiten?

Geniaal dat ik daar zelf nog niet aan gedacht had

[Speed24]

Verwijderd schreef op 05 juni 2003 @ 21:13:
[...]


Geniaal dat ik daar zelf nog niet aan gedacht had

Ja? Wat is daar tegen?

Gewoon

code:

ThisDocument.Close
Application.Quit

Dat werkt toch? Eventueel die eerste regel nog weglaten.

[Verwijderd]

Als ik via

ThisDocument.Close
Application.Quit

Eruit ga dan is dit te snel waardoor Word de opdracht nog niet in de afdrukrij heeft kunnen zetten. Kan ik een Delay in Visual Basic zetten?

[Schonhose]

Visual Basic:

Sub HaveABreak(iSeconds As Integer)
Dim lPauseTime As Long
Dim lStart As Long
  lPauseTime = iSeconds
  lStart = Timer
  Do While Timer < lStart + lPauseTime
    DoEvents
  Loop
End Sub

of via

Visual Basic:

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub test()
   Call Sleep(1000)  '1 seconds
End Sub

[ Voor 89% gewijzigd door Schonhose op 06-06-2003 09:10 ]

[Verwijderd]

Application.Wait werkt niet in Word 2000

[Verwijderd]

Ik heb dit nu maar krijg foutmeldingen.

code:

 afdrukken(iSeconds As Integer)
    Dim lPauseTime As Long
    Dim lStart As Long
    
'
' afdrukken Macro
' Macro opgenomen op 05-06-03 door Paul Verkooijen
'

    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
        PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
 
    lPauseTime = iSeconds
    lStart = Timer
    Do While Timer < lStart + lPauseTime
        DoEvents
    Loop
    
    ThisDocument.Close
    Application.Quit
End Sub

[ Voor 6% gewijzigd door Verwijderd op 10-06-2003 14:12 ]

[djluc]

Misschien evne tussen iets van code tags zetten en niet zoveel berichten achter elkaar zetten, dat leest wat fijner.

Verder zou het leuk zijn om te weten wat er precies fout gaat en welke meldingen je krijgt.

[Verwijderd]

Nou het werkte eigenlijk helemaal niet met het vorige voorbeeld. Als ik de 2e oplossing probeer dan krijg ik dat opmerkingen enkel achter End Sub of Function mag.

code:

Sub afdrukken()

    '
    ' afdrukken Macro
    ' Macro opgenomen op 05-06-03 door Paul Verkooijen
    '

    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
    wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
    Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
    PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0

    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

    Sub test()
       Call Sleep(1000)  '1 seconds
    End Sub


    ThisDocument.Close
    Application.Quit
    
End Sub

[Schonhose]

Verwijderd schreef op 10 juni 2003 @ 14:11:
Nou het werkte eigenlijk helemaal niet met het vorige voorbeeld. Als ik de 2e oplossing probeer dan krijg ik dat opmerkingen enkel achter End Sub of Function mag.

code:

Sub afdrukken()

    '
    ' afdrukken Macro
    ' Macro opgenomen op 05-06-03 door Paul Verkooijen
    '

    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
    wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
    Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
    PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0

    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

    Sub test()
       Call Sleep(1000)  '1 seconds
    End Sub


    ThisDocument.Close
    Application.Quit
    
End Sub

Ja dat klopt.

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

De in bold weergegeven declaratie hoort ook buiten je sub staan. Gooi deze maar eens boven in je module en je zult zien dat het dan wel werkt.

In mijn voorbeeld staat hij ook buiten de sub!!!! [rml]Athos in "[ WORD] Automatisch afdrukken document"[/rml]

En je hebt een sub in een sub staan. Dat kan ook niet, dus haal deze regels maar eens weg uit je code:

Sub test()
Call Sleep(1000) '1 seconds
End Sub

^{en dat Application.Wait niet werkte kwam ik ook achter tijdens het testen, maar dat was het eerste wat in mij opkwam....}

Als je er niet uitkomt mail dan het Word document maar even naar mij, dan fix ik het wel even voor je.

Ach laat ik de goede code maar even heen zetten:

Visual Basic:

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub afdrukken()

    '
    ' afdrukken Macro
    ' Macro opgenomen op 05-06-03 door Paul Verkooijen
    '

    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
    wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
    Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
    PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0


    Call Sleep(1000)  '1 seconds


    ThisDocument.Close
    Application.Quit
    
End Sub

[ Voor 34% gewijzigd door Schonhose op 10-06-2003 14:59 ]

[Verwijderd]

Athos, had je 'm toevallig ook uitgeprobeerd ? Hij wacht namelijk wel, alleen heel Word wacht ipv alleen de macro. Hij komt dus nog steeds met de melding dat hij nog aan het afdrukken is.

[Fish]

normaal kun je met rechtsklikken op je document ook op "print" terecht daar hangt in de registry naurrlijk een beetje code aan

code:

[REM _DDE_Minimize][FileOpen("%1")][t=IsDocumentDirty()][FilePrint 0][SetDocumentDirty t][DocClose]

dit in een ander stukkie

code:

[FileOpen("%1")][FilePrint 0][FileExit 2]

ik weet niet precies hoe dat dde gebeuren werkt (heb ff geexperimenteerd) maar het is een idee ........
(om het mischien zonder macro's te doen?)

[Schonhose]

Verwijderd schreef op 10 juni 2003 @ 16:29:
Athos, had je 'm toevallig ook uitgeprobeerd ? Hij wacht namelijk wel, alleen heel Word wacht ipv alleen de macro. Hij komt dus nog steeds met de melding dat hij nog aan het afdrukken is.

Heb je al geprobeerd om hem langer te laten wachten? Hij zou gewoon moeten doorprinten naar mijn idee.

Wat je ook nog kan doen is heel primitief met een loopje.

Probeer deze module eens:

Visual Basic:

Sub afdrukken()

    '
    ' afdrukken Macro
    ' Macro opgenomen op 05-06-03 door Paul Verkooijen
    '
    dim teller as long

    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
    wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
    Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
    PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0


    'Call Sleep(1000)  '1 seconds
    For teller = 1 to 99999999
    next teller


    ThisDocument.Close
    Application.Quit
    
End Sub

Das 1 oplossing. De volgende oplossing is dat je vraagt of het document goed is afgedrukt. Wanneer de gebruiker dan op "OK" drukt gaat de macro verder:

Visual Basic:

Sub afdrukken()

    '
    ' afdrukken Macro
    ' Macro opgenomen op 05-06-03 door Paul Verkooijen
    '
    Dim MsgPrintResult As Integer

    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
    wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
    Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
    PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0

   
    MsgPrintResult = MsgBox("Wacht tot het document is afgedrukt " & vbCrLf _
    & "en controleer of dit goed gegaan is." & vbCrLf & vbCrLf _
    & "Druk op OK om door te gaan.", vbInformation, "Document afdrukken")
    
    If MsgPrintResult = vbOK Then
       ThisDocument.Close
       Application.Quit
    End If
        
End Sub

[Verwijderd]

De eerste werkt eigenlijk hetzelfde als wat ik al had, en je ziet wel dat de balk voor het printen begint, maar daarna begint de wait ipv het kleine printerje wat onder in word moet verschijnen. Deze begint dus na de wait.

[Schonhose]

En die optie die ik aandroeg met de msgbox.... is dat wat?

Anders probeer deze even:

Visual Basic:

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub afdrukken()

    '
    ' afdrukken Macro
    ' Macro opgenomen op 05-06-03 door Paul Verkooijen
    '

    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
    wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
    Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
    PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0

    DoEvents
    Call Sleep(1000)  '1 seconds


    ThisDocument.Close (False)
    Application.Quit
    
End Sub

Trouwens: Word wordt bij mij niet gesloten omdat wanneer ThisDocument.Close (False) ook de macro afsluit zodat het laatste statement niet wordt uitgevoerd.

Die False is trouwens om de vraag of je veranderingen wilt opslaan te beantwoorden met nee. Wanneer je dit wel wilt vul dan True in. Je zult nu niet meer worden lastig gevallen door de vraag of je de wijzigingen wilt bewaren.

[ Voor 91% gewijzigd door Schonhose op 12-06-2003 07:56 ]