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

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