koşula göre yazdırma...!!!

[ocamsul]

Arkadaşlar merhaba.

arkadaşlar burada yazdırma işlemi eğer combox ile seçim yapılmış, textbox a da kopya sayısı girilmiş ise yazdırma yapsın ama combox yada textboxlardan herhangi biri boş ise uyarı vererek yazdırma işlemini yapmasın istiyorum.

Yardım edermisiniz arkadaşlar.

 

[Korhan Ayhan]

Selamlar,

Aslında Yazdır butonunuz uyarı veriyor ama size farklı bir yöntem sunmak istiyorum.

Private Sub CommandButton1_Click()
If TextBox1 = "" Then
MsgBox "Lütfen kopya sayısını giriniz...!"
TextBox1.SetFocus
Exit Sub
End If
If ComboBox1 = "" Then
MsgBox "Lütfen yazdırmak istediğiniz sayfayı seçiniz...!"
ComboBox1.SetFocus
Exit Sub
End If
Me.Hide
ActiveWindow.SelectedSheets.PrintOut Copies:=TextBox1.Value
Me.Show
End Sub

 

[ocamsul]

SN: COST_CONTROL

Yardımlarınıza teşekkür ederim.