worda düğme ekleyip makro atama

[ali veli]

Selam.Word da geçerli sayfayı yazdırmak için bir düğme oluturup bu düğmeye makro nasıl atanır.Yardımcı olabilirseniz çok teşekkür ederim.

 

[dEdE]

Mrb.
Ekli dosyayı inceleyiniz. Düğmenin kodunda bulunan kod, Araçlar/Makro/Yeni Makro Kaydet... komutuyla elde edilmiştir.
Saygılar.

 

[Seyit Tiken]

Buda kodların kısaltılmış şekli :

Private Sub CommandButton1_Click()
Application.PrintOut , 1
End Sub

 

[dEdE]

Sayın Seyit Tiken

Word da geçerli sayfayı yazdırmak için...

Sizin verdiğiniz kod kısa ama tüm belgeyi yazdırıyor, geçerli sayfayı değil. Geçerli sayfayı yazdırabileceiğmiz en kısa kod nasıl olmalı?
Saygılar.

 

[Haluk]

    Application.PrintOut Range:=wdPrintCurrentPage

 

[dEdE]

:bravo:
Tşk.
:bravo:

 

[Seyit Tiken]

Doğrudur. Evde uygulamasını yapmadık. Uğraşmama rağmen tek sayfa olmadı.

Kullanılan kod :

Private Sub CommandButton1_Click()
PrintOut , Copies:=1, Pages:="1"
End Sub

 

[Seyit Tiken]

Mesajı gönderdikten sonra farketim. Haluk bey cevaplamış. Kendilerine teşekkür ediyoruz. Aslında bir şeyi daha yapamadım. O da Şu : Butonu çktıda görünmez yapmak. Excelde bu özellik var. Buton sayfa üzerinde gözükmesine rağmen, çıktı alırken gözükmüyor. Wordte de buna benzer bir özellik var mı acaba?

 

[dEdE]

Araçlar/Seçenekler/Yazdır/Çizim Nesneleri
buradaki onayı kaldırmak lazım.

 

[Seyit Tiken]

Teşekkür ediyorum. Sağolun....