yazdır butonu

[duransahan]

excel sayfasına koyacağımız bi yazdır butonunu tıklayarak sayfayı yazdırmamız mümkün müdür? şayet mümkünse nasıl yapacağımı gösterebilir misiniz? teşekkürler

 

[security]

Sub security_yazdır()
' [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL] - security
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

yukarıdaki kodu Butona Atayınız...

 

[leumruk]

Alt+F11'e basın
GÖRÜNÜM>ARAÇ ÇUBUKLARI>DENETİM ARAÇ ÇUBUĞU> KOMUT DÜĞMESİ oluşturun. Bu düğmeye çift tıklayın. Karşınıza aşağıdaki gibi bir kod dizisi çıkacak.

Private Sub CommandButton1_Click()

End Sub

Bu kodun arasına aşağıdaki satırı ekleyin.

ActiveWindow.SelectedSheets.PrintOut Copies:=1

Tekrar excel sayfasına dönün. Araç çubuğunda bulunan Tasarım Modundan çık düğmesine basın. Butona bastığınızda bulunduğunuz sayfayı yazdıracaktır.

 

[duransahan]

arkadaşlar teşekkürler ama ben 2007 kullanıcısıyım ve bu dediklerinizi yapamadım. alt+ f11 e basınca ingilizce makro sayfası açılıyo. oradan da yapamadım???

ŞİMDİ denedim, makro bu sayfada olmayablir ya da tüm makrolar devre dışı bırakılmış olabilir diyo? nasıl çözebilirim bunu

 

[duransahan]

tamam çok teşekkür ederim beyler, oldu hallettim.

 

[İhsan Tank]

arkadaşlar teşekkürler ama ben 2007 kullanıcısıyım ve bu dediklerinizi yapamadım. alt+ f11 e basınca ingilizce makro sayfası açılıyo. oradan da yapamadım???

ŞİMDİ denedim, makro bu sayfada olmayablir ya da tüm makrolar devre dışı bırakılmış olabilir diyo? nasıl çözebilirim bunu

buyur 2 arkadaşın çözümlerini dosyaya ekleyip gönderdim

 

[biciko]

Ellerinize sağlık..

 

[biciko]

Çok faydalı bir bilgi. Ellerinize sağlık...

 

[assenucler]

Teşekkürler sayın İhsan Tank....

 

[İhsan Tank]

Teşekkürler sayın İhsan Tank....

rica ederim
yalnız kodlar benim değil syn : security ve syn: leumruk'a aittir kendilerine teşekkür ediniz.

 

[evlek]

Merhaba, yazdır butonu yaptmıştım ben kullandığım bir excel tablosuna ancak bazen imleç kayıyor yanlışlıkla butona basıyoruz ve boş yere sayfa yazdırılıyor. Butona "yazdırma seçenekleri" atanamaz mı acaba?
Teşekkürler

 

[Emir Hüseyin Çoban]

Merhaba, yazdır butonu yaptmıştım ben kullandığım bir excel tablosuna ancak bazen imleç kayıyor yanlışlıkla butona basıyoruz ve boş yere sayfa yazdırılıyor. Butona "yazdırma seçenekleri" atanamaz mı acaba?
Teşekkürler

Merhaba, aşağıdaki kodlar ile yazdırmak için butonu tıkladığınızda.
Uyarı verecektir. İptal işlemini seçerseniz, yazdırma iptal olur.

Private Sub CommandButton1_Click()
aciklama = "sayfayı yazdırmak ister misiniz?"
If MsgBox(aciklama, vbOKCancel) = vbOK Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Else
MsgBox "Yazdırma İşlemi İptal Edildi..."
End If
End Sub

 

[evlek]

Teşekkür ederim işimi gördü...

 

[ffesto]

Arkadaşlar peki Sayfa2 deki butona bastığımda Sayfa1 i yazdırması için ne gibi bir değişiklik yapmalıyız? Activewindow.s....... kısmında bir oynama mı yapacağız?

 

[İhsan Tank]

Arkadaşlar peki Sayfa2 deki butona bastığımda Sayfa1 i yazdırması için ne gibi bir değişiklik yapmalıyız? Activewindow.s....... kısmında bir oynama mı yapacağız?

Merhaba

Option Explicit
Sub yazdır()
Sheets("Sayfa1").PrintOut Copies:=1
End Sub

Bu şekilde deneyin

 

[ffesto]

Faydalı ve hızlı cevabınız için çok teşekkür ederim İhsan Bey .

 

[İhsan Tank]

Faydalı ve hızlı cevabınız için çok teşekkür ederim İhsan Bey .

Rica ederim
:yazici:

 

[K_G_T]

Merhabalar Peki arkadaslar direk ilgili sayfayı yazdırmadan yazıcı tercihi yapacağım bunu hangi fonksiyonla yapabilirim.
Saygılarımla.

 

[Rulemaster]

Merhabalar Peki arkadaslar direk ilgili sayfayı yazdırmadan yazıcı tercihi yapacağım bunu hangi fonksiyonla yapabilirim.
Saygılarımla.

Yazdırma ile ilgili macronun altına

"Application.Dialogs(xlDialogPrinterSetup).Show"

satırını ekleyin.