Не устраивает меня стандартный построитель отчетов (вернее, не хватает мозгов с ним разобраться - ДА, Я ТУПОЙ и не скрываю этого
).
Поэтому изобретаю велосипед:
1. Заполняю MSHFlexGrid до необходимого количества
2. На PictureBox печатаю заголовок таблицы, номер страницы и переношу таблицу:
- Код: Выделить всё
Style = gan(gn)
Pict1.CurrentX = Pict1.Width / 2 - Style * 150 / 2
Pict1.CurrentY = 20
Pict1.FontBold = True
Pict1.FontName = "Arial"
Pict1.FontSize = 22
Pict1.ForeColor = &HFFFFFF
Pict1.FontTransparent = True
Pict1.Print UCase(Style)
Pict1.PaintPicture Flex1.Picture, 150, 200
3. Копирую PictureBox в ImageBox для возможности последующего маштабирования и т.д.
- Код: Выделить всё
Set Im1.Picture = Pict1.Image
4. При нажатии кнопки "Печатать" отправляю на печать PictureBox:
- Код: Выделить всё
Printer.PaintPicture Pict1.Image, 0, 0
Printer.EndDoc
При печати выдается таблица с заголовками, но (
) очень низкого разрешения. Даже на предпросмотре уже это видно хорошо. Т.е. все буквы квадратиками, ни о каком сглаживании шрифтов и речи не идет. Я уже и маштабирование картинок методом Scale менял - пофиг...
Помогите советом, не оставьте на произвол судьбы!!!
)
