Установка печати для листа Excel

[Чудик]

Код: Выделить всё

Private Sub cmdPrint_Click()
Dim MyPrint As Excel.Application
Set MyPrint = New Excel.Application
    With MyPrint
        .Workbooks.Open ("E:\Proba.xls")
   
        .Worksheets(1).PageSetup.PaperSize = xlPaperA4
       
        .Worksheets(1).PageSetup.FitToPagesWide = 1
        .Worksheets(1).PageSetup.FitToPagesTall = 1
       
        .Worksheets(1).PageSetup.Orientation = xlLandscape
               
        .Visible = True
        '.Worksheets(1).PrintPreview
        .Workbooks(1).PrintOut Copies:=1, Preview:=True, Collate:=True
        .Visible = False
   
        .DisplayAlerts = False
        .Quit
    End With
    Set MyPrint = Nothing
    Unload Me
End Sub


Здесь почему-то игнорируются все настройки листа для печати, т.е. не ставится xlLandscape, FitToPages и т.д. В чем заморочка?

[SergeySV2]

Не нравится мне конструкция

Set MyPrint = New Excel.Application
    With MyPrint
.....

Ну MyPrint.Workbooks.Open ("E:\Proba.xls") это понятно, без объекта Application тут не обойтись, а вот дальше что за чудеса происходят? .Worksheets(1) же входит в коллекцию твоего открытого Workbooks, а не MyPrint(Application), должно идти так:

Set MyPrint = New Excel.Application
Set wrBook = MyPrint.Workbooks.Open ("E:\Proba.xls")
ну а дальше уже можно и через with, только with будет объекта wrBook

With wrBook
.Worksheets(1).PageSetup.PaperSize = xlPaperA4    
  .Worksheets(1).PageSetup.FitToPagesWide = 1
  .Worksheets(1).PageSetup.FitToPagesTall = 1

и т.д.

[Чудик]

Код: Выделить всё

Private Sub cmdPrint_Click()
Dim MyPrint As Excel.Application
Set MyPrint = New Excel.Application
Set wrBook = MyPrint.Workbooks.Open("E:\Proba.xls")
    With wrBook
        .Worksheets(1).PageSetup.PaperSize = xlPaperA4
       
        .Worksheets(1).PageSetup.FitToPagesWide = 1
        .Worksheets(1).PageSetup.FitToPagesTall = 1
       
        .Worksheets(1).PageSetup.Orientation = xlLandscape
               
        .Worksheets(1).Visible = True
        .Worksheets(1).PrintPreview
        'Worksheets(1).Workbooks(1).PrintOut 'Copies:=1, Preview:=True, Collate:=True
        .Worksheets(1).Visible = False
   
        MyPrint.DisplayAlerts = False
        MyPrint.Quit
    End With
    Set MyPrint = Nothing
    Unload Me
End Sub


Почему-то .Worksheets(1).Visible = True не срабатывает (хотя ошибку не выдает) и, соответсвенно, на следующей строке зависает. Где опять сморозил?

P.S. Про коллекции логично, хотя до сих пор и так все неплохо работало, пока с печатью не связался.

[Ramzes]

Я вот только не пойму, почему

Код: Выделить всё

Worksheets(1)


А не просто

Код: Выделить всё

Worksheets


У тебя что масив???, зачем там индекс?, может поетому и игнорируеться!!

[SergeySV2]

Я вот только не пойму, почему

Код: Выделить всё

Worksheets(1)


А не просто

Код: Выделить всё

Worksheets


У тебя что масив???, зачем там индекс?, может поетому и игнорируеться!!

Ramzes, ты что это же коллекция

[Ramzes]

Но "(1)" все равно надо поробовать убрать, у меня работает!

[Чудик]

Да, но почему код не работает?

[Чудик]

:
Но "(1)" все равно надо поробовать убрать, у меня работает!

А на что у тебя референс стоит на Excel 5, 10 или 11? Может в этом проблема?

[Ramzes]

9.0

[SergeySV2]

Да, но почему код не работает?

Если ты про WorkSheets(1).Visible, то ты перепутал Visible объекта Application и объекта worksheet. У объекта Worksheet свойство Visible принимает значения констант - xlSheetHidden, xlSheetVeryHidden, xlSheetVisible .... вообщем, посмотри справку

[Чудик]

Код: Выделить всё

Private Sub cmdPrint_Click()
Dim MyPrint As Excel.Application
Set MyPrint = New Excel.Application
Set wrBook = MyPrint.Workbooks.Open("E:\Proba.xls")

    With wrBook
        .Worksheets(1).PageSetup.PaperSize = xlPaperA4
       
        .Worksheets(1).PageSetup.FitToPagesWide = 1
        .Worksheets(1).PageSetup.FitToPagesTall = 1
       
        .Worksheets(1).PageSetup.Orientation = xlLandscape
               
        .Application.Visible = True
        .Worksheets(1).Activate
        .Worksheets(1).PrintPreview
        .Application.Visible = False
   
        MyPrint.DisplayAlerts = False
        MyPrint.Quit
    End With
    Set MyPrint = Nothing
    Unload Me
End Sub


Вот, так все заработало ....