Найдите ошибку в макросе

[BrusBarton]

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Итоговый журнал учета входящих").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A2").Select
ActiveCell.FormulaR1C1 = "=Основной!R[4]C[2]"
Range("B2").Select
ActiveCell.FormulaR1C1 = "=Основной!R[8]C[-1]"
Range("C2").Select
ActiveCell.FormulaR1C1 = "=Основной!R[15]C[-2]"
Range("D2").Select
ActiveCell.FormulaR1C1 = "=Основной!R[9]C[-3]"
Range("E2").Select
ActiveCell.FormulaR1C1 = "=Основной!R[4]C[-3]"
Range("A2:E2").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
Sheets("Основной").Select
End Sub



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

[EducatedFool]

Ваш макрос можно немного сократить и упростить:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Sheets("Итоговый журнал учета входящих").Select
    Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A2").FormulaR1C1 = "=Основной!R[4]C[2]"
    Range("B2").FormulaR1C1 = "=Основной!R[8]C[-1]"
    Range("C2").FormulaR1C1 = "=Основной!R[15]C[-2]"
    Range("D2").FormulaR1C1 = "=Основной!R[9]C[-3]"
    Range("E2").FormulaR1C1 = "=Основной!R[4]C[-3]"
    Range("A2:E2").Value = Range("A2:E2").Value
    Sheets("Основной").Select
End Sub

А найти в нём ошибку, не увидев вашего файла, я не могу.

[BrusBarton]

файлик конфеденциальный(( никак не льзя в этом макросе увидеть функцию которая переносит файл в верх,а надо вниз?

[The_Prist]

Я понял так надо:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Sheets("Итоговый журнал учета входящих").Select
    Dim lLastRow As Long: lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Rows(lLastRow + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A" & lLastRow).FormulaR1C1 = "=Основной!R[4]C[2]"
    Range("B" & lLastRow).FormulaR1C1 = "=Основной!R[8]C[-1]"
    Range("C" & lLastRow).FormulaR1C1 = "=Основной!R[15]C[-2]"
    Range("D" & lLastRow).FormulaR1C1 = "=Основной!R[9]C[-3]"
    Range("E" & lLastRow).FormulaR1C1 = "=Основной!R[4]C[-3]"
    Range("A" & lLastRow & ":E" & lLastRow).Value = Range("A" & lLastRow & ":E" & lLastRow).Value
    Sheets("Основной").Select
End Sub

[BrusBarton]

не происходит сохранение файла с этим макросом

[BrusBarton]

не происходит сохранения данных после того как послал на печать, а он работал))

[The_Prist]

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

не происходит сохранение файла с этим макросом

А в выложенном Вами макросе происходит сохранение? Почему оно вообще должно происходить, если Вы этого не написали, а макрос выполняется перед печатью?

[BrusBarton]

да Макрос работает так, данные собирает(из макроса видно какие ячейки) ,и на отдельном листочке копирует их при нажатии на кнопку печать. Ошибка заключалась в том что файл который сохранялся у меня на отдельном листочке он не по порядку сохранялся, а сохраняется первым,а не в конец. и так далее надо чтобы было

[The_Prist]

Ничего не понял. Чтобы просто сохранялся - добавьте в конец макроса - Me.Save

А чтоб значек книги в папке был последним - в меню папки - Вид-Упорядочить значки-Изменен.

Других догадок на Ваши загадки у меня нет....

[BrusBarton]

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

Ничего не понял. Чтобы просто сохранялся - добавьте в конец макроса - Me.Save

А чтоб значек книги в папке был последним - в меню папки - Вид-Упорядочить значки-Изменен.

Других догадок на Ваши загадки у меня нет....

Извините видимо вы меня не поняли