Скачать: CL | DM;

Управление Excel-ем   Найти похожие ветки 

← →
Кто ответит на вопрос?:)   (2007-03-22 21:49) [0]

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

---

← →
Сергей М. ©   (2007-03-23 09:04) [1]

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

---

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

Ну вот к примеру
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 на лист", а в макросе нету... Как жепрограммно выполнить это действие?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.048 c