tüm sayfaları yazdır makrosu

[othara]

.arkadaslar bir çalışma kitabım 17 de çalışma sayfam var..
her defasında tek tek yazdırıyorum.bşr tek tusla tüm sayfaları nasıl yazdırabilirm.

 

[Mahmut Bayram]

Sub PrintAll()
   ActiveWorkbook.PrintOut
End Sub

veya

Sub PrintAll()
   Worksheets.PrintOut
End Sub

başka bir alternatif

Sub PrintAll()
   Sheets.PrintOut
End Sub

 

[othara]

hangi modül yada sayfaya yapıstırcam bunu

 

[Mahmut Bayram]

Modül'e ekleyeceksiniz (yapıştıracaksınız).
Bir buton ile de bu makroyu ilişkilendireceksiniz.

Örnek anlatım aşağıdaki linkte:
http://www.excel.web.tr/f157/sayfada-commandbutton-olu-turmak-ve-makro-atamak-resimli-t68065.html

 

[othara]

üstatlarım butonu olusturudm ama toplu yazmayı ekleyemedim..


dosyam bu linkte yardım edebilirmisiniz


http://dosya.co/cw5hd1f6qbnd/İŞE_GİRİŞ-GMK-TOPLUUUU.xls.html

 

[YUSUF44]

Düğmenizin kodlarına arkadaşın verdiği kodlardan birini eklemeniz yeterlidir. Örneğin:

Private Sub CommandButton1_Click()
 [B]Worksheets.PrintOut[/B]
End Sub

Gibi.

 

[othara]

SAYIN YUSUF44 NASIL EKLİYCEM YÜKLEDİGİM GİBİ KALDIM

http://dosya.co/cw5hd1f6qbnd/İŞE_GİRİŞ-GMK-TOPLUUUU.xls.html

 

[YUSUF44]

Sayfa adına sağ tıklayın ve Kod görüntüle deyin:

Orda 2 satır kod göreceksiniz:

Private Sub CommandButton1_Click()

End Sub

Şeklinde.

Yukardaki kodlardan birini kopyalayıp bu satırların arasına yapıştırın ve örneğin şu hale getirin:

Private Sub CommandButton1_Click()
 Worksheets.PrintOut
End Sub

Yani araya bir satırlık bir kod/yazdırma komutu eklemiş oluyoruz.
Daha sonra sayfaya eklediğiniz düğmeye bastığınızda tüm sayfalar yazdırılacaktır.

Eğer o iki satırlık kodu göremezseniz doğrudan 3 satırlık kodu kopyalayıp o sayfaya yapıştırabilirsiniz.

 

[othara]

Private Sub CommandButton1_Click()

End Sub
Private Sub CommandButton1_Click()
Worksheets.PrintOut
End Sub


BÖYLE ALTINA YAPISTIRIM AMA OLMADI YAZIRMADI

 

[othara]

Oldu oldu sildim üstteki kodu digerini yapıstırdım