Makro ile Yazdırma

[sinerji_hasan]

arkadaşlar merhabalar benim yazdırma ile ilgili bir sorunmu daha cereyan etti.

Ekdeki dosyada
1 sayfada iki tane yazdırmak istediğim formum var

1 adet a4 kağıdının ön tarafına ve arka tarafına yazdırmak istiyorum.

formun ön ve arkada olmak üzere iki tane makro yazılıdır.
yazdır dediğimde ikisinide aynı anda çıkartıyor. ben ise ne tarafa tıklat dediğm zaman o tarafının yazdırılmasını istiyorum. ama burda dikkat etmem gereken bi nokta var formun bilgisayar ortamında renkli görünmesini isityorum yazdırılırken ise renkli kısımlar beyaz gri olan yerlerin açık gri yazılmasını istiyorum yardımcı olursanız sevinirim

 

[mehmett]

Aşağıdaki kodları deneyin.

Ön sayfa için;

[vb:1:f58cf0811f]Sub Makro1()
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1
End Sub[/vb:1:f58cf0811f]


Arka sayfa için;

[vb:1:f58cf0811f]Sub Makro2()
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2
End Sub[/vb:1:f58cf0811f]

 

[sinerji_hasan]

sn mehmett renklendirme için bi çözüm varmı acaba yada yapılmış olan makroya neasıl entegre edebilirim.

 

[sinerji_hasan]

sn Mehmett yardımınız için teşekkürler yazdığınız makroyu entegre ettim oldu. saolun