koşullu yazdırma

[bkadri]

slm
arkadaşlar şöyle bir koda ihtiyacım var..A1 hücresindeki rakam 1 ise 2 copya yazıcıdan çıksın A1 hücresi 2 ise yazıcıdan 3 suret çıksın.Bir buton yardımıyla..
Şimdiden teşekürler.

 

[Recep İpek]

Aşağıdaki kodları deneyebilirmisiniz?

Sub Yazdır()
If [A1]=1 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=2
ElseIf [A1]=2 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=3
End If
End Sub

 

[bkadri]

teşekür ederim ..