çalışma kitabında istenilen sayfaların yazdırılması....

[tahiroglu]

yazdırma makrosunu atamadım.bazı sayfaların yazdrılmaması gerekiyor.bunun için yazdırılması gereken sayfaların isimlerinin olduğu bir diğer sayfadan ordaki isimleri görüp sadece orada yazılı olan sayfa isimlerini yazdırmasını istiyorum.nasıl yapabilirim.formda tam olarak göremedim.belkide acemiliğimden dolayı göremedim.herkese iyi çalışmalar.yardımlarınızdan dolayıda ayrıca teşekkürler.

 

[Metin Karaağaç]

Şöyle birşey yapsak?
Buradaki makroda sayfalar 1-4 arası belirlendi.
Eğer seçiminiz çok çeşitli değilse; diğer ihtimaller için kendiniz de bu düğmeleri çoğaltabilirsiniz.

 

[veyselemre]

Sub Yazdir()

son = Sheets("sayfalar").[a65536].End(3).Row
ReDim sayfalar(4 To son)

For x = 4 To son
sayfalar(x) = Sheets("sayfalar").Cells(x, 1)
Next x

Sheets(sayfalar).PrintOut
End Sub

 

[tahiroglu]

olmadı

arkadaşlar ilginizden dolayı teşekkürler ama formülleri uyguladım fakat olmuyor.tekrar bakabilirseniz sevinirm.

 

[veyselemre]

Kodları örneğinize ekledim.

 

[tahiroglu]

tahiroğlu

sayın veyselemre çok teşekkür ederim.acemiliğime verin bazı şeylerimiama benim belirleyeceğim sayfa sayısı değişken olabilir.ben sayfalar kısmına beş sayfanında ismini yazdığımda yine 4 sayfanın çıktısı alınabilitor.sayfalar kısmında yazılı olan sonrasında ilave veya eklenecek olabilir.bu isimlerdeki sayfaların hepsinin çıktısını almak isityorum.bu mümkünmü.tekrar tekrar teşekkür ederimm.iyi çalışmalar

 

[veyselemre]

sayın veyselemre çok teşekkür ederim.acemiliğime verin bazı şeylerimiama benim belirleyeceğim sayfa sayısı değişken olabilir.ben sayfalar kısmına beş sayfanında ismini yazdığımda yine 4 sayfanın çıktısı alınabilitor.sayfalar kısmında yazılı olan sonrasında ilave veya eklenecek olabilir.bu isimlerdeki sayfaların hepsinin çıktısını almak isityorum.bu mümkünmü.tekrar tekrar teşekkür ederimm.iyi çalışmalar

1. sayfalar sayfasının altına yazdırılacak sayfa ismini yazdınız mı?
2. yeni eklediğiniz sayfada hiç yazdırılacak bir şey var mı?

 

[tahiroglu]

yardımmm

sayın veyselemre isterseniz bir denemede siz yapın olmuyor.ayrıca anamenü sayfasınıda yazdırıyor sayfalar kısmında olmadığı halde.tekrar bakabilirseniz sevinecem.yinede ilginize minnettarım.saygılarımla iyi çalışmalar

 

[veyselemre]

İlginç yazıcı olarak HP Deskjet F380 yi seçtiğimde sayfaların hepsini yazdırıyor, Microsoft Ofice Document Image Writer veya CutePDF Writer olarak dosya yazıcılarını seçtiğimde ise 4 er sheet ler halinde yazıyor.

 

[tahiroglu]

yardımmmm

istediğim sayfaları nasıl yazdırabilirim.yardımlarınız bekliyorum.....

 

[Korhan Ayhan]

Selamlar,

Sn. veyselemre beyin kodları bende düzgün çalıştı. Sanırım sizde problem çıkardı. Bu durumda alternatif olarak aşağıdaki kodu denermisiniz.

Sub YAZDIR()
    Set SY = Sheets("Sayfalar")
    For X = 4 To SY.[A65536].End(3).Row
    Sheets(SY.Cells(X, 1).Text).PrintOut
    Next
    Set SY = Nothing
End Sub

 

[tahiroglu]

sn COST_CONTROL ilginize teşekkür ederim.ama şuan yazıcımda denem şansım olmadı.yarın ilk işim bunu denemek olacak..tekrar tekrar teşekkür ederim.iyi akşamlar.....