YAZDIRMA BUTONU VE CheckBox

[unalblacklion]

MERHABA,

excel de tek butona vereceğim komut ile işaretlediğim CheckBox ları atadığım sayfaları yazdırmak istiyorum lütfen yardımcı olun

 

[chngrcn]

sub yazdir()
dim s1 as worksheet
dim s2 as worksheet
dim s3 as worksheet

set s1 = sheets("sayfa1")
set s2 = sheets("sayfa2")
set s3 = sheets("sayfa3")

if checkbox1.value = true then
s1.printout collate = true copies =1 
end if

if checkbox2.value = true then
s2.printout collate = true copies =1 
end if

if checkbox3.value = true then
s3.printout collate = true copies =1 
end if

end sub