Сколько раз doPrint - столько ЛИСТОВ и отпечатает
Нужно в StrList сформировать документ, и только потом отправить на печать (один раз = один лист)