Private Sub bPrintView_Click()
 printView
End Sub

Sub printView()
On Error Resume Next
    Dim n#, k#
    Dim wb As Workbook
    Dim psh As Worksheet, sh As Worksheet
    
    Set wb = ActiveWorkbook
    Set psh = wb.Sheets("Print")
    psh.Visible = True
    
    If psh.UsedRange.Rows.Count < 2 Then
            
            For Each sh In wb.Sheets
                If sh.Name <> "Print" Then
                    n = psh.UsedRange.Rows.Count
                    If sh.PageSetup.PrintArea <> "" Then
                        k = CInt(Mid(sh.PageSetup.PrintArea, 9))
                    Else
                        k = sh.UsedRange.Rows.Count
                    End If
                    sh.Rows("1:" + CStr(k)).Copy
                    psh.Activate
                    
                    If n < 2 Then
                        psh.Cells(1, 1).Select
                    Else
                        psh.Cells(n + 3, 1).Select
                    End If
                    ActiveSheet.Paste
                End If
            Next
    End If
    psh.Activate
    psh.Cells(1, 1).Select
    If bPrintView Then
        psh.PrintOut
    End If
End Sub

    Dim Shp As Shape
...
                  For Each Shp In sh.Shapes
                    Shp.Delete
                  Next Shp