Sayfaları yazdırmak için bir komut düğmesine ihtiyacınız var. İşte işlem basamakları

[mavisim_03220]

1. GÖrünüm-Araç Çubukları- Denetim Araç Kutusu seçin
2. Ekrana gelen araç çubuğunu ekranın uygun yerine yerleştirin
3. Araç çubuğu üzerindeki "Komut düğmesi" simgesine tıklayın ve sayfanın uygun yerine düğmeyi farenin sol tuşuyla çizin
4. DÜğmeye çift tıklayıp "Visual BAsic Düzenleyicisine" geçin
5. Sol taraftaki "properties" penceresinde "caption" kısmına yazdığınız yazı düğme üzerinde gözükecektir.
6. sub commanbox1()
........................
end sub

satırları arasına aşağıdaki kodu yazın

Sheets("30x9").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

NOT: " işareti içindeki yazdıracağınız sayfanın adıdır. sayfa1, personel vb
NOT: denetim masanızdaki Yazıcılar da Vrsayılan yazıcı neyse o yazıcıya yazdırır.


7. X işaretinden düzenleyiciyi kapatın

8. Denetim Araç Kutusundaki 1. düğmeye "Tasarım Modunu Kapat" tıklayın

9. Düğmenin sayfayı yazdırdığınızda yazdırılmaması için düğmeye sağ tıklayıp "DEnetim biçimlendir" seçin "özellikler" deki "nesneyi yazdır" onayını kaldırın.

10. Düğmenin sayfada kaymasını engellemek için aynı yerdeki "Hücrelerle taşıma ve boyutlandırma" seçeneğini seçin

 

[esmatekel]

tEŞEKKÜRLER aMA sANA bİR sORUM oLCAK eĞeer Mümkünse Şimdi Diyelimki Ben Sayfa Birdeyim Sayfa 2 Deki a-b-c sütünün 26 Satıra Kadar Nasıl Yazdırıım
Bununla İlgili Nasıl Yardımcı Olabilirsin

 

[esmatekel]

Ben Biraz Karıştırdıktan Sonra Buldum Belki Sezinde İşinize Yarar Parça Formulleri Berleştirerek Yaptım Herkeze Teşekkürler

Sub azdır()

Sheets("Sayfa2").Select Hangi Sayfayı Yazdırmak İstiyorsan Range("a1:f21").SelectO Sayfanın Hangi Bölümünü yAZDIRMAK iSTİYORSAN
Application.ActivePrinter = "Ne01: üzerindeki HP LaserJet M1005 "eĞER 2 yAZICIN vARSA hANGİSİ iLE yAZDIRMAK iSTİYORSAN
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Ne01: üzerindeki HP LaserJet M1005 ", Collate:=True
Sheets("Sayfa1").Select
Application.ScreenUpdating = TrueyAZDIRDIKTAN sONRA hANGİ sAYFAYA dÖNMESİNİ iSTİYORSAN

End SubsON


Sub azdır()

Sheets("Sayfa2").Select
Range("a1:f21").Select
Application.ActivePrinter = "Ne01: üzerindeki HP LaserJet M1005 "
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Ne01: üzerindeki HP LaserJet M1005 ", Collate:=True
Sheets("Sayfa1").Select
Application.ScreenUpdating = True

End Sub