Çoklu çalışma sayfalarında yazdırma işlemi

[burakinti]

Çoklu çalışma sayfalarından oluşan çalışma kitabım var. Bu çalışma sayfalarında yine çok satırlı listelerim var.
Yazıcıdan tüm çalışma sayfalarının ilk sayfalarını almak istiyorum, nasıl yapabilirim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:e849430b1d]Sub yazdir()
For a = 1 To Sheets.Count
Sheets(a).PrintOut From:=1, to:=1
Next
End Sub
[/vb:1:e849430b1d]

 

[burakinti]

Sayın leventm;

Öncelikle ilginizden dolayı teşekkür ederim.
Visual basic komutlarını hiç kullanmadım. Daha detaylı anlatırsanız sevinirim.
Mesala bir ikon oluşturup ona bastığım zaman, daha önceki mesaj da belirttiğim işlemi/leri yapmak istiyorum.

 

[Levent Menteşoğlu]

Aşağıdaki linkleri inceleyin.

http://www.excel.web.tr/viewtopic.php?t=4597

http://www.excel.web.tr/viewtopic.php?t=4153

 

[burakinti]

Aşağıdaki bilgilerle ana sayfaya ikon koyup makroyu ikona atadım bastığımda tüm çalışma sayfaların ilk sayfalarını yazdırabiliyorum. Yanlız yanlışlıkla tıkladığınızda da onlarca sayfa yazıcıdan çıkmaya başlıyor. Bunun önüne geçebilmem için kısaca bir MsgBox hazırlayıp "Yazıcıdan tüm sayfalr çıkacak emin misiniz? mesajıyla beraber, altta evet ve hayır seçenekleri olup evet tıklandığında yazdırma işlemini başlatsın, hayır tıklandığında yazdırma yapmasın...
Nerden başlayacağımı bilmiyorum. MsgBox oluşturuyorum fakat seçenek veremiyorum..

 

[maviayna]

Sub yazdir()
sor = MsgBox("Yazdırmak istediğinizden emin misiniz?", vbYesNo)
If sor = vbNo Then Exit Sub
  For a = 1 To Sheets.Count
    Sheets(a).PrintOut From:=1, to:=1
  Next
end if
End Sub

Tavsiye etmek bana düşmez belki ama örnek uygulama ve linkler bölümünde bu tür detayları içeren uygulamalar çokça var. Uygun bir programı incelemenizi tavsiye ederim.

 

[burakinti]

Benim kod bu şekilde. verdiğiniz kodu eklediğimde hata veriyor.

Private Sub CommandButton1_Click()
For a = 1 To Sheets.Count
Sheets(a).PrintOut From:=1, To:=1
Next
End Sub

 

[maviayna]

Private Sub CommandButton1_Click() 
sor = MsgBox("Yazdırmak istediğinizden emin misiniz?", vbYesNo) 
If sor = vbNo Then Exit Sub 
  For a = 1 To Sheets.Count 
    Sheets(a).PrintOut From:=1, to:=1 
  Next 
End Sub

Bir de böyle deneyelim.