UserForm a Yazdır Butonu koymak

[Mustafa MUTLU]

Arkadaşlar UserForm kayıtlarını sayfa1 e yapıyor.
Sayfa2 ve Sayfa3 e formüller ekleyerek çizelge yaptım.
UserForm a 2 adet yazdır butonu koyarak
sayfa2 ve sayfa3 teki çizelgeleri yazdırmak istiyorum.

Yani sayfa2 ve sayfa3 e hiç girmeden userformdan yazdırmak istiyorum.

ilginize Teşekkür ederim..

 

[ynmcan]

Arkadaşlar UserForm kayıtlarını sayfa1 e yapıyor.
Sayfa2 ve Sayfa3 e formüller ekleyerek çizelge yaptım.
UserForm a 2 adet yazdır butonu koyarak
sayfa2 ve sayfa3 teki çizelgeleri yazdırmak istiyorum.

Yani sayfa2 ve sayfa3 e hiç girmeden userformdan yazdırmak istiyorum.

ilginize Teşekkür ederim..

Syn. Mutlu baba;
Ağağıdaki kodları ilgili butunlara ekleyin.
Ancak sayfalarda yazdırma alanlarını belirlemeyi unutmayın.

Sheets("[COLOR="red"]yazdırılacak 1. sayfa adın buraya yazın[/COLOR]").PageSetup.PrintArea = "Yazdırma_Alanı"
ActiveWindow.SelectedSheets.PrintOut Copies:=1

Sheets("[COLOR="Red"]yazdırılacak 2. sayfa adın buraya yazın[/COLOR]").PageSetup.PrintArea = "Yazdırma_Alanı"
ActiveWindow.SelectedSheets.PrintOut Copies:=1

 

[Mustafa MUTLU]

Teşekkür Ederim.

 

[ynmcan]

Teşekkür Ederim.
Modüle mi yazacağım.

İsterseniz bir modüle ayrı ayrı isimlerle kaydedip. Sonra bu isimleri butununların click olaylarına yazın. Yada direk bukodları butonların click olayına yazın. Farketmez. yapamıyorsanız örnek dosyanızı ekleyin.