_wordDocPrint only prints to default printer

[dpollard]

Hi Guys,

I'm running Windows 7 64 bit and Office 2010 64bit. I am trying to print a word document and nothing comes out when I try to specify the printer by name. I have tried a shared network name and a local printer name and niether work. If I don't specify a printer and send it to the default printer it prints OK. I have compiled both 32 and 64bit exe's and they both do the same thing.

I have made a cut down example to demonstraight the problem. I started with the example script so I should be very close.

;Test Print
;http://www.autoitscript.com/autoit3/docs/libfunctions/_WordDocPrint.htm
#include <word.au3>
Local $hWordApplication
Local $hWordDocument
Local $BackgroundPrint=0
Local $Copies=1
Local $Orientation=-1  ;(Current Default)
Local $Collate=1
Local $Range=0    ;Entire document
Local $PageFrom=0    ;Starting page when Range=3
Local $PageTo=0   ;Ending page when Range=3
Local $Pages=0   ;The page numbers to be printed seperated by commas when Range=4
Local $PageType=0    ;0=All, 1=Odd and 2=Even
Local $Item=0
;Local $printerName="\\vjraywks05\HPOfficejet6500"
Local $printerName="HPOfficeJet6500"

$hWordApplication = _WordCreate(@ScriptDir & "\Test.doc")
$hWordDocument = _WordDocGetCollection($hWordApplication, 0)
$hWordDocument.Range.Text = "This is some text to print."
;_WordDocPrint($hwordDocument) ;<--- This prints to the default printer
_WordDocPrint($hWordDocument, $BackgroundPrint, $Copies, $Orientation, $Collate, $PrinterName, $Range, $PageFrom, $PageTo, $Pages, $PageType, $Item)
MsgBox(0,"Debug","Print Document=" &@error & @extended)
_WordQuit($hWordApplication, 0)

My Message box after the _WordDocPrint() command returns 00.

Any Ideas where I'm going wrong.

David

PS I did post this question a month or two ago. I thought I solved it but the default printer was just tricking me.

[water]

I encounter the same problem here: Windows 7 SP1 64 bit, office 2010 32 bit.

As I'm about to rewrite the Word UDF I will investigate the problem ...

[water]

I tested _WordDocPrint on Windows XP and it works just fine.

Maybe it's a permission problem with W7?

[water]

I did some more testing on Windows 7 and noticed that "servernamePrintername" seems to be case sensitive.

I added a printer to Windows 7, it shows up as "DRPDF_File" on "Spool3". _WordDocPrint works only if use "Spool3DRPDF_File". All other lowercase/uppercase notations fail.

Could you test if this is true for your environment too?

[dpollard]

Hi Water,

Sorry for the slow reply. For some reason even though am "Following" this thread I'm not getting email notifications of any new posts.

Anyway, I have checked the spelling of my printer name and the case was spot on. My workstation name seems to be all in upper case.

I have tried a couple of different combinations but it stil doesn't print anything and the @error and @extended are still 00.

I'm at a bit of a loss for what else to try?

David

[water]

Could you please run this test script? Change the parameters of _WordDocPrintEX to your needs.

expandcollapse popup

#include <word.au3>

Global $oWordApp = _WordCreate("")
Global $oDoc = _WordDocOpen($oWordApp, @ScriptDir & "Test.doc")
$oWordErrorHandler = ObjEvent("AutoIt.Error", "MyErrFunc")
_WordDocPrint($oDoc, 0, 1, -1, 1, "spool3xyz")
ConsoleWrite(@error & "-" & @extended & @CRLF)
_WordQuit($oWordApp)
Exit

Func MyErrFunc()
; Important: the error object variable MUST be named $oWordErrorHandler
Local $ErrorScriptline = $oWordErrorHandler.scriptline
Local $ErrorNumber = $oWordErrorHandler.number
Local $ErrorNumberHex = Hex($oWordErrorHandler.number, 8)
Local $ErrorDescription = StringStripWS($oWordErrorHandler.description, 2)
Local $ErrorWinDescription = StringStripWS($oWordErrorHandler.WinDescription, 2)
Local $ErrorSource = $oWordErrorHandler.Source
Local $ErrorHelpFile = $oWordErrorHandler.HelpFile
Local $ErrorHelpContext = $oWordErrorHandler.HelpContext
Local $ErrorLastDllError = $oWordErrorHandler.LastDllError
Local $ErrorOutput = ""
$ErrorOutput &= "--> COM Error Encountered in " & @ScriptName & @CR
$ErrorOutput &= "----> $ErrorScriptline = " & $ErrorScriptline & @CR
$ErrorOutput &= "----> $ErrorNumberHex = " & $ErrorNumberHex & @CR
$ErrorOutput &= "----> $ErrorNumber = " & $ErrorNumber & @CR
$ErrorOutput &= "----> $ErrorWinDescription = " & $ErrorWinDescription & @CR
$ErrorOutput &= "----> $ErrorDescription = " & $ErrorDescription & @CR
$ErrorOutput &= "----> $ErrorSource = " & $ErrorSource & @CR
$ErrorOutput &= "----> $ErrorHelpFile = " & $ErrorHelpFile & @CR
$ErrorOutput &= "----> $ErrorHelpContext = " & $ErrorHelpContext & @CR
$ErrorOutput &= "----> $ErrorLastDllError = " & $ErrorLastDllError
MsgBox(0, "COM Error", $ErrorOutput)
SetError(1)
Return
EndFunc ;==>MyErrFunc

Func _WordDocPrintEX(ByRef $o_object, $f_Background = 0, $i_Copies = 1, $i_Orientation = -1, $f_Collate = 1, $s_Printer = "", $i_Range = 0, $i_From = "", $i_To = "", $s_Pages = "", $i_PageType = 0, $i_Item = 0)

Local $s_ActivePrinter, $i_Extended, $i_DocOrientation = "", $i_ErrorStatusCode = $_WordStatus_Success, $s_ErrorMSG = ""

Switch $i_Range
Case 3
If Not $i_From Or Not $i_To Then
Return SetError($_WordStatus_InvalidValue, 7, 0)
EndIf
Case 4
If Not $s_Pages Then
Return SetError($_WordStatus_InvalidValue, 7, 0)
EndIf
EndSwitch

$i_Orientation = String($i_Orientation)
If $i_Orientation <> "-1" Then
Switch $i_Orientation
Case "0", "1"
$i_DocOrientation = String($o_object.PageSetup.Orientation)
If $i_DocOrientation <> $i_Orientation Then
$o_object.PageSetup.Orientation = $i_Orientation
EndIf
Case Else
Return SetError($_WordStatus_InvalidValue, 4, 0)
EndSwitch
EndIf

If $s_Printer Then
$s_ActivePrinter = $o_object.Application.ActivePrinter
$o_object.Application.ActivePrinter = $s_Printer
ConsoleWrite(@error & @CRLF)
If @error = $_WordStatus_ComError And $WordComErrorNumber = -2147352567 And $WordComErrorDescription = "There is a printer error." Then
$i_ErrorStatusCode = $_WordStatus_InvalidValue
$s_ErrorMSG = "Invalid printer name specified."
$i_Extended = 6
EndIf
EndIf

$i_From = String($i_From)
$i_To = String($i_To)
If Not $i_ErrorStatusCode Then
; $o_object.PrintOut($f_Background, 0, $i_Range, "", $i_From, $i_To, $i_Item, $i_Copies, $s_Pages, $i_PageType, 0, $f_Collate)
If @error = $_WordStatus_ComError Then
$i_ErrorStatusCode = $_WordStatus_ComError
EndIf
EndIf

If $i_DocOrientation <> "" And $i_DocOrientation <> $i_Orientation Then
$o_object.PageSetup.Orientation = $i_DocOrientation
EndIf
If $s_ActivePrinter Then
$o_object.Application.ActivePrinter = $s_ActivePrinter
EndIf

EndFunc ;==>_WordDocPrint

A MsgBox with extended error information should pop up.

Edited July 25, 2012 by water

[llewxam]

I was receiving @Extended 3, with the above function @Error and @Extended are both 0. My default printer is set as CutePDF, as I do not currently have a printer hooked up to my main box. Is this function now working with a physical printer?

Thanks!

Ian

[water]

I have rewritten the Word UDF, you can download it

You need at least AutoIt 3.3.9.2 beta to run the UDF. Could you give it a try?

What could cause your problem is that you run the 64 bit version of Office. Even Microsoft recommends to use the 32 bit version.

Do you have a computer with Office 2010 32 bit available where you can test?

[llewxam]

I have rewritten the Word UDF, you can download it

You need at least AutoIt 3.3.9.2 beta to run the UDF. Could you give it a try?

What could cause your problem is that you run the 64 bit version of Office. Even Microsoft recommends to use the 32 bit version.

Do you have a computer with Office 2010 32 bit available where you can test?

My office install is 32bit. Office 2007. My OS is 7 64bit, but that shouldn't hurt as I compile ll of my scripts as 32bit.

I am going to grab the UDF you linked to now and give it a shot. Thanks!

Ian

[llewxam]

Mixed results. Your example in _Word_DocPrint.au3 works great, and even works great with the DOC file I am building with the script I want to print from. The oddity is that I have something in my script that is making your UDF unhappy, probably something left over from Word.au3. I have made sure the DOC file is closed, ran _WordQuit and even tried _WordErrorHandlerDeRegister(). When I do not kill the error handler from Word.au3 I get "The name of the active printer is: " but no name, if I kill the error handler the script dies at Local $sActivePrinter = $oDoc.Application.ActivePrinter. But within your example my printer is named properly and everything works....

SO, I obviously have some cleanup of my own script to do, your UDF seems to be working fine!

Thanks again

Ian

[water]

I think you shouldn't mix Word.au3 and WordEX.au3. Everything you can do with Word.au3 can be done with WordEX.au3 too.

I suggest to completely get rid of Word.au3.

[llewxam]

I think you shouldn't mix Word.au3 and WordEX.au3. Everything you can do with Word.au3 can be done with WordEX.au3 too.

I suggest to completely get rid of Word.au3.

I definately thought that as well, but the way I am inserting images in to the document doesn't play friendly with your UDF.

$oWordApp = _WordCreate($sFilePath, 1, 0)
$oDoc = _WordDocGetCollection($oWordApp, 0)

For $a = 0 To 29
   If $PrintArray[$a][0] == "" Then
      $iLeft += 263
      If $iLeft > 600 Then
         $iLeft = 17
         $iTop += 97
      EndIf
   Else
      $oShape = $oDoc.Shapes.AddCanvas($oWordApp.PixelsToPoints($iLeft), $oWordApp.PixelsToPoints($iTop), $oWordApp.PixelsToPoints($iWidth), $oWordApp.PixelsToPoints($iHeight))
      $oTextbox = $oShape.CanvasItems.AddTextbox($wdTextOrientationVertical, 1, 1, $oShape.Width - 1, $oShape.Height - 1)
      $oRange = $oTextbox.TextFrame.TextRange
      _Word_DocPictureAdd($oDoc, @TempDir & "" & $placement[$a] & ".jpg", False, True, $oRange)
      $oTextbox.Line.Visible = False
      $iLeft += 263
      If $iLeft > 600 Then
         $iLeft = 17
         $iTop += 97
      EndIf
   EndIf
Next
_WordQuit($oWordApp, -1)

It's the _WordDocGetCollection that seems to be the problem, the way your new UDF specifies the range is different. I couldn't figure out how to make it happy and left it alone for a while, care to shed some light?

Thanks!

Ian

Edited September 2, 2012 by llewxam

[water]

It's the _WordDocGetCollection that seems to be the problem, the way your new UDF specifies the range is different. I couldn't figure out how to make it happy and left it alone for a while, care to shed some light?

But _WordDocGetCollection has nothing to do with ranges. It returns a document collection or the object of a single document. You specify 0 so you get the object of the current document.

Can you post a small reproducer script (the above script contains an undefined array) I can play with?

[llewxam]

Sorry for the undefined array above, I guess I was just hoping you wouldn't need a full example

As you will see, the script is designed to fill a label sheet with product labels. The full script dynamically creates the labels, I attached a sample and ditched the array from above with the file name. The script works great as-is. but to print you have to open Word and print from there, which seems kinda silly.....

#include <Word.au3>
#include <WordEX.au3>

Const $wdTextOrientationHorizontal = 0
Const $wdTextOrientationUpward = 2
Const $wdTextOrientationDownward = 3
Const $wdTextOrientationVerticalFarEast = 1
Const $wdTextOrientationHorizontalRotatedFarEast = 4
Const $wdTextOrientationVertical = 5

Global $iLeft = 17, $iTop = 53, $iWidth = 243, $iHeight = 94
$sFilePath = @ScriptDir & "\Test Label Sheet.doc"
FileDelete($sFilePath)

$oWordApp = _WordCreate($sFilePath, 1, 0)
$oDoc = _WordDocGetCollection($oWordApp, 0)

For $a = 0 To 29
   $oShape = $oDoc.Shapes.AddCanvas($oWordApp.PixelsToPoints($iLeft), $oWordApp.PixelsToPoints($iTop), $oWordApp.PixelsToPoints($iWidth), $oWordApp.PixelsToPoints($iHeight))
   $oTextbox = $oShape.CanvasItems.AddTextbox($wdTextOrientationVertical, 1, 1, $oShape.Width - 1, $oShape.Height - 1)
   $oRange = $oTextbox.TextFrame.TextRange
   _Word_DocPictureAdd($oDoc, @ScriptDir & "\844660054467.jpg", False, True, $oRange)
   $oTextbox.Line.Visible = False
   $iLeft += 263
   If $iLeft > 600 Then
      $iLeft = 17
      $iTop += 97
   EndIf
Next
_WordQuit($oWordApp, -1)

ShellExecute($sFilePath)

Thanks!

Ian

Edited September 2, 2012 by llewxam

[water]

Thanks for the reproducer script.

I will test and come back with the results tomorrow.

[water]

This works fine for me:

#include <WordEX.au3>

Const $wdTextOrientationHorizontal = 0
Const $wdTextOrientationUpward = 2
Const $wdTextOrientationDownward = 3
Const $wdTextOrientationVerticalFarEast = 1
Const $wdTextOrientationHorizontalRotatedFarEast = 4
Const $wdTextOrientationVertical = 5

Global $iLeft = 17, $iTop = 53, $iWidth = 243, $iHeight = 94
$sFilePath = @ScriptDir & "Test Label Sheet.doc"
FileDelete($sFilePath)

$oWordApp = _Word_Create(1)
$oDoc = _Word_DocAdd($oWordApp)

For $a = 0 To 2
   $oShape = $oDoc.Shapes.AddCanvas($oWordApp.PixelsToPoints($iLeft), $oWordApp.PixelsToPoints($iTop), $oWordApp.PixelsToPoints($iWidth), $oWordApp.PixelsToPoints($iHeight))
   $oTextbox = $oShape.CanvasItems.AddTextbox($wdTextOrientationVertical, 1, 1, $oShape.Width - 1, $oShape.Height - 1)
   $oRange = $oTextbox.TextFrame.TextRange
   _Word_DocPictureAdd($oDoc, @ScriptDir & "844660054467.jpg", False, True, $oRange)
   $oTextbox.Line.Visible = False
   $iLeft += 263
   If $iLeft > 600 Then
      $iLeft = 17
      $iTop += 97
   EndIf
Next
_Word_DocPrint($oDoc, Default, Default, Default, Default, "Your printer name goes here")
_Word_Quit($oWordApp)

[llewxam]

Great, thanks! I played with it, and noticed that I had to drop $iTop down 2 pixels and $iLeft left 9 pixels, and had to expand $iWidth to 250. Somehow the scale is also slightly smaller in your UDF, hard to be precise about it but the graphic is definitely slightly smaller using your UDF versus Wods.au3. However, that is not at all a problem, it is barely noticeable just something I caught. The only other thing I did was removed your "Your printer name goes here" and just used "" so it goes to the default printer.

I thank you very much for your help, and for the time you put in to this revised UDF!! I will also find the time to test with Office 2010 and if there is any issue I will let you know.

Ian

[water]

Glad to be of service

I will be glad for any feedback you can give to improve the UDF!

[llewxam]

Sorry to report that we have an issue with Office 2010. I uninstalled my Office 2007 and downloaded Office 2010 Starter (http://www.downloadcrew.com/article/26083-microsoft_office_starter) and ran the script, got a failure:

$oShape = $oDoc.Shapes.AddCanvas($oWordApp.PixelsToPoints($iLeft), $oWordApp.PixelsToPoints($iTop), $oWordApp.PixelsToPoints($iWidth), $oWordApp.PixelsToPoints($iHeight))

That is the same message that is returned when the computer doesn't have Word 2003 or above, at least up to 2007. I also did verify that the 2010 that installed is 32bit. I know Office 2010 Starter is stripped-down, but have a hard time believing that they would have removed core API stuff. I don't have a full version, so there isn't much I can do to keep testing unless I can test on a customer's computer that has a full version of 2010 installed.

Ian

Edited September 3, 2012 by llewxam

[water]

IIRC the starter version misses the COM interface.

Check this

Edited September 3, 2012 by water