sıralı listeyi yazdırma

[ebege]

Merhabalar benim istediğim a1'den diyelim a10'a kadar sıralı bilgi var yazdır butonuna bastığımızda sırayla hepsini yazdırmasını istiyorum .
Şimdiden teşekkürler yardımlarınız için...

 

[Orion1]

Buyurun.

Sub yazdir59()
ActiveSheet.PageSetup.PrintArea = "A1:A10"
ActiveSheet.PrintOut
ActiveSheet.PageSetup.PrintArea = ""
End Sub

 

[Ömer BARAN]

Merhaba.
Örnek belgeniz yok ama şunu söyleyeyim.

-- Bir excel belgesindeki veya bir word tablosundaki satırlarda yer alan bilgileri ayrı ayrı kullanarak,
-- Mevcut bir word belgesi şablonunu (mutabakat mektubu, fatura, teklif mektubu veya benzeri bir belge) yazdırmak istiyorsanız;
bunun için en iyi seçenek ADRES-MEKTUP BİRLEŞTİRME işlemidir.

Bu konuyu word kapsamında araştırmanız lazım.

 

[ebege]

Teşekkürler ilginiz ve cevaplarınız için

 

[ebege]

Tekrardan merhaba Şu an için yazıcıdan çıktı aldığımda bütün hücreler tek bir sayfada çıkıyor ben a1 bir sayfada a2 bir sayfada sırayla bu şekilde istiyorum buna bakabilir misiniz?

 

[Orion1]

Tekrardan merhaba Şu an için yazıcıdan çıktı aldığımda bütün hücreler tek bir sayfada çıkıyor ben a1 bir sayfada a2 bir sayfada sırayla bu şekilde istiyorum buna bakabilir misiniz?

Buyurun.

Sub yazdir59()
Dim hcr As Range
Application.DisplayAlerts = False
For Each hcr In Range("A1:A10")
    ActiveSheet.PageSetup.PrintArea = hcr.Address
    ActiveSheet.PrintOut
    ActiveSheet.PageSetup.PrintArea = ""
Next
Application.DisplayAlerts = True
End Sub