I got this from Tim Patrick's book and it just works for me. I printed
out the article and looked at the changes. He uses it almost
identically,
except for a few changes.

He changed the routine SendBytesToPrinter. He renamed it
SendStringToPrinter. Here's the header:

Public Shared Function SendStringToPrinter(ByVal targetPrinter As
String, _
 ByVal stringContent As String, ByVal documentTitle As String) as
Boolean

He added the following definitions at the top:

 Dim contentBytes as IntPtr
 Dim contentSize as Int32

Before the line that initializes bSuccess = False, he added this:

 'Convert the string to ANSI text.
 contentSize = stringContent.Length()
 contentBytes = Marshal.StringToCoTaskMemAnsi(stringContent)

After "Write your printer-specific bytes to the printer" the article
has this:  bSuccess = WritePrinter(hPrinter, pBytes, dwCount, dwWritten)
but Tim has this:

 bSuccess = WritePrinter(hPrinter, contentByes, contentSize, dwWritten)

Then at the end before returning bSuccess, he has

 'Free up unused memory.
 Marshal.FreeCoTaskmem(contentBytes)

This was a VB2005 book, and I don't know if the changes had something
to do with that, or because the MSDN article didn't work exactly right.

Does this help?

Robin S.
----------------------------------------------