ممنون از پاسخ شما...
اگر بخوام چند if که نوشتم و هرکدام چاپهای جداگانه انجام میدن رو اجرا کنم چکار کنم . من تمام if ها رو پشت سرهم قرار دادم. اما فقط اولی اجرا میشه .
کدی که نوشتم اینه
کد:
Sub Macro11()'
' Macro11 Macro
'
'
If Range("F6") = True Then
Sheets("ÊãÈÑ").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=3
End If
If Range("F5") = True Then
Sheets("˜ÇÑãÒÏÇÓÊÚáÇã").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=3
End If
If Range("F4") = True Then
Sheets("ÇÚÊÈÇÑ").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=3
End If
If Range("F9") = True Then
Sheets("ËÈÊ ÇÍæÇá").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=3
End If
If Range("F10") = True Then
Sheets("˜ÇÑãÒÏ720").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=3
End If
If Range("F7") = True Then
Sheets("˜ÇÑãÒÏ ÊÔ˜íá ÑæäÏå").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=3
End If
If Range("F8") = True Then
Sheets("1").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=3
End If
If Range("F11") = True Then
Sheets("2").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=3
End If
Sheets("Ç").Select
End Sub
علاقه مندی ها (Bookmarks)