VB6 + win7 + SetTextJustification

Формулировка задачи:

Доброго времени суток всем!
Собратья, помогите советом или делом или еще чем-нибудь.
Дело такое:
В программе на VB6 для печати неких документов используется api-функция SetTextJustification для выравнивания текста по ширине. До недавнего времени, пока программа запускалась на ХР, все было замечательно, так как функция прекрасно выполняла свою задачу как при выводе текста на принтер, так и при выводе его же на экранную форму. Теперь же, с переходом на Windows 7, происходит что-то непонятное. Функция прекрасно отрабатывает при выводе текста на экранную форму, но ничего не делает при выводе на принтер (причем, не важно какой: реальный или виртуальный, типа MS Image Writer или какой-нить goPdf). Кто-нибудь сталкивался с подобной проблемой? Или есть какие-нибудь соображения по этому поводу?
...and the Hades came close behind him... (Revelations 6:8)

Решение задачи: «VB6 + win7 + SetTextJustification»

textual
                            Листинг программы 
                        
                            TextOut DC, currRect.left, currRect.top, OutputStringWrite, Len(OutputStringWrite)