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

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

Управление Excel-ем [D6, Win95/98, Win2k, WinXP]

Кто ответит на вопрос?:) ©   (2007-03-22 21:49:00) 

Есть необходимость сформировать отчет в Excel-е, для определенности скажем массив квитанций. Печататься они должны по 4 штуки на одном листе.
Пытался понять что и куда прописывать через запись макроса, но эти параметры не попадают в макрос, хотя установки и сохраняются в  книге, причем отдельно для каждого листа.
Каким образом из программы можно задать эти свойства?

---

Кто ответит на вопрос?:)   (2007-03-24 13:26:00) [1]

Ну вот к примеру
Sub Макрос1()
   ActiveWorkbook.SaveAs Filename:= _
       "C:\Documents and Settings\Matrix\йцукен.xls", FileFormat:= _
       xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
       , CreateBackup:=False
   With ActiveSheet.PageSetup
       .PrintTitleRows = ""
       .PrintTitleColumns = ""
   End With
   ActiveSheet.PageSetup.PrintArea = ""
   With ActiveSheet.PageSetup
       .LeftHeader = ""
       .CenterHeader = ""
       .RightHeader = ""
       .LeftFooter = ""
       .CenterFooter = ""
       .RightFooter = ""
       .LeftMargin = Application.InchesToPoints(0.787401575)
       .RightMargin = Application.InchesToPoints(0.787401575)
       .TopMargin = Application.InchesToPoints(0.984251969)
       .BottomMargin = Application.InchesToPoints(0.984251969)
       .HeaderMargin = Application.InchesToPoints(0.5)
       .FooterMargin = Application.InchesToPoints(0.5)
       .PrintHeadings = False
       .PrintGridlines = False
       .PrintComments = xlPrintNoComments
       .PrintQuality = 300
       .CenterHorizontally = False
       .CenterVertically = False
       .Orientation = xlPortrait
       .Draft = False
       .PaperSize = xlPaperA4
       .FirstPageNumber = xlAutomatic
       .Order = xlDownThenOver
       .BlackAndWhite = False
       .Zoom = 100
       .PrintErrors = xlPrintErrorsDisplayed
   End With
End Sub

Здесь мы сохранили пустую книгу для первого листа которой указано печатать по 4 страницы на лист. Если закрыть книгу и открыть - в свойстах листа вижу "по 4 на лист", а в макросе нету... Как жепрограммно выполнить это действие?

---

Сергей М.   (2007-03-23 09:04:00) [2]

Показывай макрос ...

---

Наверх