Trying to print

[bobonwhidbey]

 I want to print text in a Windows environment using Canvas.TextOut. I've followed these instructions at http://wiki.freepascal.org/Using_the_printer without success.  This simple program bombs (for me) at the BeginDoc line. Further tracing shows that the program stops on line 258 of the winprinters.inc file:

    PDev.DevModeSize := DocumentPropertiesW(0, FPrinterHandle, Pwidechar(UTF8Decode(PDev.Name)),

Any help with printing would be appreciated very much.