| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

настройки печати StringGrid-а

Iris ©   (2008-09-09 11:29:00) 

Хочу вывести таблицу на печать, но возникли следующие проблемы:
1. Разворот страницы(книжная/альбомная). TPrintDialog вроде все галки поставил, чтобы можно было менять этот параметр. Он в диалоговом окне свойств принтера меняется, но выводит все равно в книжно виде.
2. Нужно сформировать заголовок листа, сделал так:
var Title: string;
begin
   Title := Self.WorkBook.Sheets[Self.WorkBook.ActiveSheet].Name;
   if Self.PrintDialog.Execute
   then begin
       Self.WorkBook.Grid.PrintSettings.TitleText := Title;
       Self.WorkBook.Grid.Print;
   end;
end;
но не выводит никакого заголовка.
Что делаю неверно??

---

MsGuns   (2008-09-09 15:31:00) [1]

Как заголовок сабжа относится к самому сабжу ?

---

Iris   (2008-09-09 12:04:00) [2]

ответ на пункт 1:
       Self.WorkBook.Grid.PrintSettings.UseDefaultOrientation := True;

---

Iris   (2008-09-09 11:51:00) [3]

С пунктом 2 разобрался ,
интересует вопрос какое свойтво TPrintDialog указывает на ориентантацию страницы?

---

Iris   (2008-09-09 11:51:00) [4]

ответ на п.2 :
добавить Self.WorkBook.Grid.PrintSettings.Title := ppTopCenter;

---

Наверх