Yazdırma İşlemi

[Abdulhey]

Merhaba;
Benim varolan çalışma kitabımda bir ana sayfam var ve buna bağlı çok miktarda sayfam var.
Benim istediğim bu çalışma sayfalarımın tek bir komut ile yazdırmak.
Bir buton ile bu mümkünmü ?
Teşekkürler

 

[spilavci]

Ekteki örneği inceleyin.

 

[Metin Karaağaç]

Sub Makro1()
'
' Makro1 Makro
' Makro Master tarafından 07/05/2006 tarihinde kaydedildi.
'

'
ActiveWorkbook.PrintOut Copies:=1, Collate:=True
End Sub




Bu kodu deneyin.

 

[Metin Karaağaç]

Hatta hazır düğmelisini göndereyim.

 

[dEdE]

Mrb.,
Ekteki dosya sanırım sizin istediğiniz gibi.
Saygılar.

 

[Abdulhey]

Arkadaşlar gönderdiğiniz dosyaları inceledim. Sanırım ben yanlış anlattım. Yazdır işlemini yapınca çalışma kitabındaki tüm dosyaları yazırıyor.
Benim çalışma kitabımda bir ANASAYFA var + bu sayfaya veri veren 1 2 3 4 .... 150 151 152 isimlerinde sayfalar var. Benim istediğim ANASAYFA haricindeki sayfaların yazdırılması
Umarım anlatabilmişimdir derdimi

 

[karamurselli]

ActiveWorkbook.PrintOut From:=2, To:=32766, Copies:=1, Collate:=True

 

[karamurselli]

ActiveWorkbook.PrintOut From:=2, To:=32766, Copies:=1, Collate:=True

kırmızı yazılı yeri sayfa sayısına göre değiştirebilirsiniz.
yeşil kısım da kopya sayısıdır.