[حل شده] پرینت بعد از درست بودن شرط

[rezastage]

با سلام خدمت اساتید

در یک فایل اکسل در شیت وجود دارد شیت 1 و شیت 2 من بااستفاده از کد نویسی یک کلید پرینت ساختم که با فشار دادن کلید پرینت از صفحه من گرفته میشه
حال امکان این است که با استفاده از شرط بتوانیم کاری کنیم که اگر شرط برقرار بود صفحه 1 پرینت گرفته بشه و اگر برقرار نبود صفحه 2 و یا اصلا پرینتی گرفته نشه


با تشکر

[amir_ts]

با سلام
جواب سوال شما با استفاده از کدنویسی حل میشه و باید تو محل مناسب مطرح میشد.
کد زیر رو ملاحظه کنید با توجه به مقدار سل A1 از شیت مربوطه پرینت میگرید.
1 شیت 1-2 شیت2 -3 شیت 1 و 2

[LEFT]
Sub PrintSheets()
    Dim v As Variant

    v = Sheets(1).Range("A1")
    If Not IsNumeric(v) Then
    MsgBox "no number"
        Exit Sub
    Else
        Select Case v
            Case 1
                Sheets("Sheet1").PrintOut
            Case 2
                Sheets("Sheet2").PrintOut
            Case 3
                Sheets("Sheet1").PrintOut
                Sheets("Sheet2").PrintOut
        End Select
    End If
End Sub
[/LEFT]