Здравствуйте, Dyos, Вы писали:


D> StartDocPrinter(Handle, 1, @DocInfo1);
D> StartPagePrinter(Handle);
D> WritePrinter(Handle, PChar(S), Length(S), N);
D> EndPagePrinter(Handle);
D> EndDocPrinter(Handle);
D> ClosePrinter(Handle);

Не совсем понятно где конкретно валится. Сделай обработку ошибок, ибо без оной сложно догадаться что у тебя происходит.