yazdırdıktan sonra userform kapansın

[kelbasasimsirtarak]

Private Sub CommandButton1_Click()
If CheckBox1 = True Then
Sheets("BAŞVURU1").PrintPreview
ElseIf CheckBox2 = True Then
Sheets("BAŞVURU2").PrintPreview
ElseIf CheckBox3 = True Then
Sheets("BAŞVURU3").PrintPreview
End If
End Sub
-----------------------------------
Private Sub UserForm_Activate()
CheckBox1.Value = True
End Sub
-----------------------------------
arkadaşlar merhaba.ben userforma 3 tane checkbox koydum.bunlarla başvuru formu yazdırıyorum.BAŞVURU1 checkbox'ını mecbur işaretlenmiş hale getirdim.BAŞVURU1 her yazdırmada mecburen çıkacak.ayrıca diğerlerinden hangisi işaretliyse onu da beraber yazdırmak istiyorum.fakat öncelikle önizleme açılsın istiyorum.bunu bir ölçüde başardım.yazdır butonuna bastığımda önizlemeler açılıyor ve istersem yazdırabiliyorum.ama çarpıya tıkladığımda sayfa kilitleniyor ve geri çıkamıyorum.mecburen programı kapatıyorum.istediğim şu ki yazdıra bastığımda önizleme açılsın ve ardından userform otomatik kapansın.teşekkür ederim.

 

[Orion1]

Buyurun.

Private Sub CommandButton1_Click()
[B][COLOR="Red"]on error resume next[/COLOR][/B]
If CheckBox1 = True Then
Sheets("BAŞVURU1").PrintPreview
ElseIf CheckBox2 = True Then
Sheets("BAŞVURU2").PrintPreview
ElseIf CheckBox3 = True Then
Sheets("BAŞVURU3").PrintPreview
End If
[B][COLOR="Red"]unload me[/COLOR][/B]
End Sub

 

[kelbasasimsirtarak]

işe yaramadı office 2010 kullanıyorum

 

[Orion1]

işe yaramadı office 2010 kullanıyorum

2 nolu mesajı güncelledim.

 

[kelbasasimsirtarak]

işte bu kadar eline diline yüreğine sağlık.teşekkür ederim