Вопрос по печати

[segail]

А если установлены не корректно, то выйдет сообщение ОС ?

[sasha_prof]

Всем доброго времени суток.

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

PHP код:

 'очний
    If Sheets(stor1).Cells(52, 12).Value = Sheets(stor1).Cells(4, 21).Value Then
    shlyah = Sheets(stor1).Cells(4, 22).Value
    End If
    
    'у робочому
    If Sheets(stor1).Cells(52, 12).Value = Sheets(stor1).Cells(5, 21).Value Then
    shlyah = Sheets(stor1).Cells(5, 22).Value
    End If
    
    nama1 = Sheets(stor2).Cells(12, 3).Value & "_"
    dataSog = Worksheets("Manager").Cells(2, 3)
    d = Day(dataSog)
    If d < 10 Then d = "0" & d
    m = Month(dataSog)
    If m < 10 Then m = "0" & m
    y = Year(dataSog)
    
    If KlasyfIPO1 = 10 Then
    typ = "1111"
    Else
        If KlasyfKred1 = 40 Then
        typ = "2222"
        Else
        typ = "3333"
        End If
    End If
    
    'збереження
    Sheets(Array(stor3, stor4)).Copy
    ActiveWorkbook.SaveCopyAs Filename:=shlyah & d & m & y & " " & nama1 & typ & ".xls"
    ActiveWindow.Close SaveChanges:=False
    
Windows(FajlNazva).Activate
MsgBox ("Документи збережено") 


Возникшые проблемы:
1. Правильно ли я сохраняю новый файл???
2. при открывании книги выскакивет окно с информацыи"указаны формат файла отличается от указаного и т.д."
3. В базовой на этих листах была настроена печать на 1 лист а вот при открывании новых все сбилось. Как сохранить из теми что было или хотя бы задать при сохранении.


Заранее благодарен.

[sasha_prof]

Неужели нет варианта решения данной проблемы?

[doober]

Это должно помочь

 ActiveWorkbook.SaveCopyAs Filename:=shlyah & d & m & y & " " & nama1 & typ & ".xls" , FileFormat:=xlExcel8

[sasha_prof]

Сообщение от doober

Это должно помочь

 ActiveWorkbook.SaveCopyAs Filename:=shlyah & d & m & y & " " & nama1 & typ & ".xls" , FileFormat:=xlExcel8

чтото материться выделяя эту часть
FileFormat:=

[doober]

все правильно,так нельзя
Наступил второй раз на эти же грабли.
Подобный вопрос был.я ответил,надо вспомнить в какой теме .Я не глянул.что
SaveCopy а не Save

[sasha_prof]

Сообщение от doober

все правильно,так нельзя
Наступил второй раз на эти же грабли.
Подобный вопрос был.я ответил,надо вспомнить в какой теме .Я не глянул.что
SaveCopy а не Save

Спасибо огромное.
Все работает.
Только вот еще при сохранении выпадает окно с проверкой совместимости.
Как бы его ликвидировать?

[doober]

Сообщение от sasha_prof

Как бы его ликвидировать?

Саша,пилите гирю

  Application.DisplayAlerts = False
===============================
................................................
 ActiveWorkbook.SaveCopyAs 
===================================
     Application.DisplayAlerts = True

[sasha_prof]

Сообщение от doober

Саша,пилите гирю

  Application.DisplayAlerts = False
===============================
................................................
 ActiveWorkbook.SaveCopyAs 
===================================
     Application.DisplayAlerts = True

Все ок работает.

P.S. (Вообщето там ШУРА)