Настройки печати в Excel

[Чудик]

А еще мучает тема, я ее распологал в стороне VBA, никто толком не ответил, может не там распологал? Взгляните (может еще раз), пожалуйста, может есть идеи? http://bbs.vbstreets.ru/viewtopic.php?t=12533

[Ramzes]

Я уже ответил.

Иди смотри.

[Чудик]

Как продолжение темы:
В процедуре модуля пишу
Set MyPrint = New Excel.Application
Set wrBook = MyPrint.Workbooks.Open(App.Path & PrintFile)
Затем вызываю подпрограмму, где выполняется работа с wrBook. Выскакивает ошибка, что требуется объект.
Как можно разрешить такую ситуацию?

[Ramzes]

Не уверен но попробовать стоит

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

Public Myxls As New Excel.Application

Private Sub Form_Load()
Set MyWB = Myxls.Workbooks.Open(App.Path & "\xls.xls")
End Sub


[Чудик]

Не катит, даже ошибка не успевает выскакивать - зависает все приложение.

[Konst_One]

весь код в студию, особенно, твою подпрограмму

Затем вызываю подпрограмму, где выполняется работа с wrBook. Выскакивает ошибка, что требуется объект.

[Ramzes]

[quote="Konst_One"]весь код в студию, особенно, твою подпрограмму

Тоже правильно, или хотябы подробнее напиши, что делает "подпрограмма", зачем она вообще нужна, и т.д.

И вопрос конктретнее задай.

А то блин эти долбаные телепаты, все еще в отпуске

[Чудик]

Весь код - это много, так что выдрал только часть, надеюсь будет понятно. Суть такая, что данный код принадлежит форме типа окошка печати. В зависимости от окна, где работает пользователь, печатаются разные данные. В одном случае из книги excel, в двух других из FlexGrid, который сначала переводится тоже в excel при помощи BIFF, а потом идет на печать. Соответственно перед печатью делаем настройки по экселевски, но тут то и проблема.
Надеюсь на Вашу помощь.

[ANDLL]

Попробуй

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

Set MyWB = Myxls.Workbooks.Open(App.Path & "\xls.xls")
Set MyWB =MyWB.Application.ActiveWorkbook


[Чудик]

Нет, все равно подобная установка объекта не дает его видимость в других процедурах одного модуля.

[Чудик]

Значит это не реализуемо?

[Ramzes]

А если в одной форме, взять лист обработать его затем сохранить, адрес записать в глобальную переменную типа стринг, а в другой форме наново открыть

[Чудик]

Exploit
Программа или просто хитрость, которая
позволяет обойти ошибку в программе.

Думаю, Ramzes, что в данном случае это как раз exploit. В принципе такой вариант не плох, но я предполагаю, что если открывать-закрывать файл не два раза, а уже три - это притормозит порядочно программу.
Я думал над вариантом объединения всех процедур в одну. Это будет менее читабельней, но на скорости отразится не должно.
Но я хотел бы обойти это не при помощи хитроумных телодвижений, а при помощи естественных действий в VB. Неужели подобная работа с объектными переменными не может быть глобальной?

[Ramzes]

Ну тогда можно весь лист писать в какой то масив или переменную, но
это памяти займет, о мама дорогая.

И вообще где Алибек и Тёмыч, они бы бистро сказали что по чем и зачем

[off]
Давайте их все вместе позовем как дети снегурочку
[/off]

[GSerg]

Алибек полчаса назад пошёл домой, Тёмыч не знаю где, так что обойдётесь без снегурочек

В чём трабла-то?

[Ramzes]

САБЖ , с самого начала и до конца, одна сплошная трабла

[GSerg]

Мешаете мне хавать доширак

Чё-то я не врубаюсь - что за предыдущий вопрос, что сделано, чот не сделано
Поэтому прошу заполнить шаблон:
Я пытаюсь из [...] управлять экселем следующим образом: [...]. При этом не получается конкретная процедура: [...].

[Konst_One]

что-то все как-то сумбурно описано, что нужно и какие проблемы.
в коде черт голову сломит и что там за объект такой ExcelFile - это твой com-объект или еще что?

[Чудик]

попробую высказать свою проблему иначе.
Когда я работаю с Excel так:

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

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

    [color=red]With wrBook
        .Worksheets(1).PageSetup.PaperSize = xlPaperA4
       
        .Worksheets(1).PageSetup.FitToPagesWide = 1
        .Worksheets(1).PageSetup.FitToPagesTall = 1
       
        .Worksheets(1).PageSetup.Orientation = xlLandscape[/color]
               
        .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


у меня все класно работает. Стоит мне часть кода выставить в подпрограмму:

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

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
       
Call aaaa
               
        .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

Public Sub aaaa
With wrBook
       .Worksheets(1).PageSetup.FitToPagesWide = 1
        .Worksheets(1).PageSetup.FitToPagesTall = 1
       
        .Worksheets(1).PageSetup.Orientation = xlLandscape
End With
End Sub

как сразу код стопорит в этой подпрограмме с ругательством отсутствия объекта, т.е. wrBook.
И меня интересует вопрос - можно ли сохранить структуру кода (где подпрограмма) и отвертеться от этой ошибки, т.е сделать присвоение объектной переменной wrBook

Set wrBook = MyPrint.Workbooks.Open("E:\Proba.xls")

глобальным?

[Чудик]

ExcelFile - это класс для работы с excel в формате BIFF.

[GSerg]

Где объявлена wrBook?

[Чудик]

Ё-ё-ё-ё-ё! Столько людей побеспокоил!
Ребята, мне стыдно! Как-будто кто-то глаза мои закрыл. Во, лопухнулся!