Option Explicit

Sub PrintAll()
    Dim i           As Long

    Dim myArr       As Variant
    myArr = Array("стр1", "стр2")

    For i = 0 To UBound(myArr)

        Dim Ws      As Worksheet
        Set Ws = ThisWorkbook.Worksheets(myArr(i))

        With Ws
            .Calculate
        End With

    Next i

    ThisWorkbook.Worksheets(myArr).Select

    Dim response    As VbMsgBoxResult
    response = MsgBox("Что вы хотите сделать с выбранными листами, сохранить как отдельный файл в формате .pdf или распечать по отдельности? ", vbQuestion + vbYesNo, "Вопрос")

    If response = vbYes Then

        ' Блок экспорта листов с двумя листами в одном PDF файле
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1) & ".pdf", Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
                True
    Else

        ' Блок вывода листов на печать, каждый по отделности печается
        Application.Dialogs(xlDialogPrinterSetup).Show
        ThisWorkbook.Worksheets(myArr).PrintOut
    End If

    Set Ws = Nothing
    Erase myArr
End Sub

Option Explicit

Sub PrintAll_v2()
    Dim tempSheet   As Worksheet
    Set tempSheet = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))

    ThisWorkbook.Worksheets("стр1").UsedRange.Copy
    tempSheet.Range("A1").PasteSpecial xlPasteAll
    Application.CutCopyMode = False
    tempSheet.HPageBreaks.Add Before:=tempSheet.Rows(ThisWorkbook.Worksheets("стр1").UsedRange.Rows.Count + 1)

    ThisWorkbook.Worksheets("стр2").UsedRange.Copy
    tempSheet.Range("A" & ThisWorkbook.Worksheets("стр1").UsedRange.Rows.Count + 1).PasteSpecial xlPasteAll
    tempSheet.Cells.Columns.AutoFit
    Application.CutCopyMode = False

    With tempSheet.PageSetup
        .PaperSize = xlPaperA4
        .Orientation = xlPortrait
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With

    tempSheet.PrintOut
    '    tempSheet.PrintPreview

    Application.DisplayAlerts = False
    tempSheet.Delete
    Application.DisplayAlerts = True

    Set tempSheet = Nothing
End Sub