Sub Печать_разных_форматов()

    Dim sh As Worksheet, rng As Range
    Dim i As Long
    
    Set sh = ActiveSheet
    Set rng = Range(Replace(sh.PageSetup.PrintArea, ";", ","))
    For i = 1 To rng.Areas.count
        If rng.Areas(i).Columns.count <= 9 Then
            If sh.PageSetup.PaperSize <> xlPaperA4 Then
                sh.PageSetup.PaperSize = xlPaperA4
            End If
        Else
            If sh.PageSetup.PaperSize <> xlPaperA3 Then
                sh.PageSetup.PaperSize = xlPaperA3
            End If
        End If
        sh.PrintOut From:=i, To:=i
    Next i

    If sh.PageSetup.PaperSize <> xlPaperA4 Then
        sh.PageSetup.PaperSize = xlPaperA4
    End If
    
    MsgBox "Готово!", vbInformation
    
End Sub