Microsoft Word (VBA Program printing problem)

[Catalyst159]

I have created a program in Word ( VBA) to print purchase orders, but the problem is when printing them since they print as one single spooled file per page, the Windows spooler sometimes prints them out of order. How could I go about resolving this. Any help or suggestions would be greatly appreciated. Thanks .

[daniel aristidou]

I have created a program in Word ( VBA) to print purchase orders, but the problem is when printing them since they print as one single spooled file per page, the Windows spooler sometimes prints them out of order. How could I go about resolving this. Any help or suggestions would be greatly appreciated. Thanks .

Well im not sure if this is the best advice....but i personally would of tried a timer...between pages...reducin g the posibility of them being printed in wrong order.....since it wont print something that it hasn't yet recieved

[WinblowsME]

Try pausing between each print.

Sub Test
   ' Code to print page 1
   Call Pause(1)
 
   ' Code to print page 2
   Call Pause(1)
 
   ' ...
End Sub
 
Private Sub Pause(seconds As Double)
   Dim start As Long
 
   start = Timer
 
   Do Until Timer - start >= seconds
      DoEvents
   Loop
End Sub

[Catalyst159]

Is pause a function of vba

[daniel aristidou]

Is pause a function of vba

Don't know....have you tried it?

[Killer42]

No, Pause is a function that Winnie wrote, in the same message where it was used.

[Killer42]

Note, you could also change the Windows print spooling settings. For instance, you can set it to begin printing immediately, rather than when the job is complete.

[Catalyst159]

Note, you could also change the Windows print spooling settings. For instance, you can set it to begin printing immediately, rather than when the job is complete.

How will this help the situation ?

[daniel aristidou]

How will this help the situation ?

It will might make the printer read the pages in the right order....

[Catalyst159]

The print routine is something like this:

 
Private Sub PrintPO(d As Document)
    Dim vBinNumbers As Variant
    Dim vBinNames As Variant
    Dim i As Integer
 
    Application.ActivePrinter = "po"
    d.Repaginate
 
    'vBinNumbers = GetBinNumbers
    'vBinNames = GetBinNames
 
    'MsgBox vBinNames(4)
    'MsgBox vBinNumbers(4)
    For i = 1 To d.BuiltInDocumentProperties(wdPropertyPages)
        d.Content.Find.Execute FindText:="PURCHASE ORDER COPY 2 - DEPARTMENT KEEP", ReplaceWith:="PURCHASE ORDER COPY 1 - CLAIM FORM", Replace:=wdReplaceAll
        d.PageSetup.FirstPageTray = 259     'Correct (Tray 2)
        d.PageSetup.OtherPagesTray = 259    'Correct (Tray 2)
        d.PrintOut Range:=wdPrintFromTo, From:=Str(i), To:=Str(i)
        d.Content.Find.Execute FindText:="PURCHASE ORDER COPY 1 - CLAIM FORM", ReplaceWith:="PURCHASE ORDER COPY 2 - DEPARTMENT KEEP", Replace:=wdReplaceAll
        d.PageSetup.FirstPageTray = 258     'Correct (Tray 3)
        d.PageSetup.OtherPagesTray = 258    'Correct (Tray 3)
        d.PrintOut Range:=wdPrintFromTo, From:=Str(i), To:=Str(i)
    Next
 
End Sub
 
 

The problem is , occasionally the purchase orders print out of order. Am I missing something or doing something wrong somewhere.

Anyone, how do you think I can correct this.