Excel Forum

Code: Select all

Sub print1()

    Dim num As Integer
    Dim r6 As Integer
    Dim r9 As Integer
    Dim d10 As Integer

    Dim d As Integer
    
    num = Sheets("BBS").Range("a1")

        Select Case num
            Case 1
                Sheets("bbs").PrintOut From:=1, To:=1, Copies:=2
                Sheets("tag01").PrintOut From:=1, To:=1
            Case 2
                Sheets("bbs").PrintOut From:=1, To:=2, Copies:=2
                Sheets("tag01").PrintOut From:=1, To:=2
            Case 3
               Sheets("bbs").PrintOut From:=1, To:=3, Copies:=2
                Sheets("tag01").PrintOut From:=1, To:=3
            Case 4
                 Sheets("bbs").PrintOut From:=1, To:=4, Copies:=2
                Sheets("tag01").PrintOut From:=1, To:=4
            Case 5
                Sheets("bbs").PrintOut From:=1, To:=5, Copies:=2
                Sheets("tag01").PrintOut From:=1, To:=5

        End Select

rb9 = Sheets("9").Range("a1")
 
 If rb9 >= 1 Then
   
  Select Case rb9
            Case 1
                 Sheets("9").PrintOut From:=1, To:=1
            Case 2
                 Sheets("9").PrintOut From:=1, To:=2
        End Select
        
    End If
    

rb6 = Sheets("6").Range("a1")
 
 If rb6 >= 1 Then
   
  Select Case rb6
            Case 1
                 Sheets("6").PrintOut From:=1, To:=1
            Case 2
                 Sheets("6").PrintOut From:=1, To:=2
        End Select
        
    End If
    
     
End Sub

Code: Select all

Sub print1()

    Dim num As Integer
    Dim r6 As Integer
    Dim r9 As Integer
    Dim d10 As Integer

    Dim d As Integer
    
    num = Sheets("BBS").Range("a1")
    Sheets("bbs").PrintOut From:=1, To:=num, Copies:=2
    Sheets("tag01").PrintOut From:=1, To:=num

    'Select Case num
    '    Case 1
    '        Sheets("bbs").PrintOut From:=1, To:=1, Copies:=2
    '        Sheets("tag01").PrintOut From:=1, To:=1
    '    Case 2
    '        Sheets("bbs").PrintOut From:=1, To:=2, Copies:=2
    '        Sheets("tag01").PrintOut From:=1, To:=2
    '    Case 3
    '       Sheets("bbs").PrintOut From:=1, To:=3, Copies:=2
    '        Sheets("tag01").PrintOut From:=1, To:=3
    '    Case 4
    '         Sheets("bbs").PrintOut From:=1, To:=4, Copies:=2
    '        Sheets("tag01").PrintOut From:=1, To:=4
    '    Case 5
    '        Sheets("bbs").PrintOut From:=1, To:=5, Copies:=2
    '        Sheets("tag01").PrintOut From:=1, To:=5    '
    'End Select

    rb9 = Sheets("9").Range("a1")
     
    If rb9 >= 1 Then
        Sheets("9").PrintOut From:=1, To:=rb9
    '    Select Case rb9
    '       Case 1
    '           Sheets("9").PrintOut From:=1, To:=1
    '       Case 2
    '           Sheets("9").PrintOut From:=1, To:=2
    '   End Select
    End If
        
    
    rb6 = Sheets("6").Range("a1")
     
    If rb6 >= 1 Then
        Sheets("6").PrintOut From:=1, To:=rb6
    '  Select Case rb6
    '       Case 1
    '           Sheets("6").PrintOut From:=1, To:=1
    '       Case 2
    '           Sheets("6").PrintOut From:=1, To:=2
    '   End Select
    End If
     
End Sub