Soru PDF kaydetme yardım

[serhatyaman43]

Arkadaşlar merhaba.
Pdf kayıt için şöyle bir şey yapmak istiyorum, önce D7 hücresinin kontrol edecek eğer dolu ise A1:H40 aralığını pdf olarak kaydedecek, sonra D47 için aynı işlemi yapacak bu kez A41:H80 aralığını yazdıracak bu şekilde 16 kez devam edecek.
Aşağıdaki şekilde denedim ama olmadı. Bunu yapabilmemin yolu nedir?
Bir de her defasında bu dosyaları farklı isimle kaydetmesi gerekiyor ya da tek bir dosyada birleştirmeli.
Aşağıdaki şekilde veya farklı şekilde yardımcı olabilecek var mı?

Sub deneme()

Dim u As Integer
baslangic:

For u = 0 To 15
If Range(Cells(7 + u * 40, 4), Cells(7 + u * 40, 4)).Value = 0 Then
GoTo baslangic

Else

With Sheets("Sınav Listeleri").Range(Cells(1 + u * 40, 1), Cells(40 + u * 40 * 40, 10))
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="D:\sınavlar\Liste.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False '
End With
End If
Next

End Sub

 

[Tevfik_Kursun]

Merhaba Serhatyaman43,
Ekli bağlantı işinizi görür diye düşünüyorum.
Ornek_TK
İyi çalışmalar

 

[serhatyaman43]

Tevfik bey ilginiz için teşekkür ediyorum.
Dosyayı ekte gönderiyorum.
Yapmak istediğim şu, Sınav Listeleri sayfasında D7 kontrol edilecek dolu ise A1:H40 pdf olarak yazdırılacak boşsa yazdırılmayacak
Sonra D47 kontrol edilecek dolu ise A41:H80 pdf olarak yazdırılacak boşsa yazdırılmayacak
Bu şekilde
D87 A81:h120
D127 A121:H160
...
D607 A601:H640
A kadar devam edecek. Yazdığınız kodla bunu nasıl yapabileceğimi çözemedim.
Dosyayı kontrol ederek yardımcı olabilir misiniz?

http://s7.dosya.tc/server14/k2s77b/SinavListeleri.rar.html

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
SınavListeleri_TK
İyi çalışmalar

 

[serhatyaman43]

Tevfik bey çok teşekkür ediyorum işimi gördü.
Son bir şey daha sorayım bunları tek bir pdf yapmanın yolunu bulabilir miyiz?
Excel ile yoksa onu ben hallederim başka programlarla.

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
pdftk adlı program ile yapmanızı öneririm.
İyi çalışmalar

 

[serhatyaman43]

Merhaba Arkadaşım,
pdftk adlı program ile yapmanızı öneririm.
İyi çalışmalar

Allah razı olsun.

 

[Tevfik_Kursun]

Hepimizden

 

[s.savas]

Merhaba Serhatyaman43,
Ekli bağlantı işinizi görür diye düşünüyorum.
Ornek_TK
İyi çalışmalar

Yeni bir konu açmadan konu ile iglili bir soru sormak isterim.
Dosya yolunda PDF isimli bir klasör yoksa önce klasörü oluşturup sonra kayıt yaparsa daha şık olur.

 dosya_adı = Range("M1").Value
 dosya_adı = dosya_adı & ".pdf"
 klasor = ActiveWorkbook.Path & "\Pdf\"

 

[comp_wolf]

Yeni bir konu açmadan konu ile iglili bir soru sormak isterim.
Dosya yolunda PDF isimli bir klasör yoksa önce klasörü oluşturup sonra kayıt yaparsa daha şık olur.

 dosya_adı = Range("M1").Value
dosya_adı = dosya_adı & ".pdf"
klasor = ActiveWorkbook.Path & "\Pdf\"

MERHABALAR
BEN G6 YÜCRESİNDE NE YAZILI İSE ONUN ADI İLE İSTEDİĞİM BİR KLASÖRÜN İÇİNE YENİ KLASÖR OLUŞTURUP DOSYAMI ONUN İÇİNE KAYDETMEK İSTİYORUM BANA YARDIMCI OLABİLİR MİSİNİZ???

 

[veyselemre]

Sub pdf()
    Sheets("Sınav Listeleri").Select
    Rows.Hidden = False
    For i = 1 To 601 Step 40
        If Cells(i + 6, 4).Value = 0 Then
            Cells(i, 1).Resize(40).EntireRow.Hidden = True
        End If
    Next i
    pth = "D:\sınavlar"
    With CreateObject("Scripting.FileSystemObject")
        If Not .folderexists(pth) Then .CreateFolder pth
    End With
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pth & "\Liste.pdf"
End Sub

 

[Tevfik_Kursun]

Sayın Veysel Emre Hocam,
Her zamanki gibi tam formundasınız. Dosyanın tek parça olmasını sayfanın satır sayısını büyüterek yapmışsınız anladığım kadarı ile. Ama sanki bu dosya her sınıfı bir A4 sayfaya basmaya uygun değil gibi. Ben mi yanlış anladım ya da göremediğim bir şey mi var? Tamamını bir sayfaya basmaya çalışıyor gibi.
Benim en çok kullandığım çalışma türü olduğu için soruyorum, lütfen merakımı mazur görün.
Saygılarımla

 

[veyselemre]

Dosyanın tek parça olmasını sayfanın satır sayısını büyüterek yapmışsınız anladığım kadarı ile. Ama sanki bu dosya her sınıfı bir A4 sayfaya basmaya uygun değil gibi. Ben mi yanlış anladım ya da göremediğim bir şey mi var? Tamamını bir sayfaya basmaya çalışıyor gibi.

Ben hiçbir şey yapmadım, zaten orjinal dosya 40 satırda bir sayfa sonu eklenmiş halde, satırlar gizlendikten sonra her 40 satır bir sayfa olarak düzenli bir pdf oluyor. Sizin dosyanızda sayfa ayarlarında sığdır / ölçeklendirme / multiply ayarı kalmış olabilir.

 

[Tevfik_Kursun]

Evet, çok haklısınız. Neden olduğunu anlamadım ama, sayfaya sığdır kalmış.
Yine de sormuş olayım, belki başkalarının da işine yarayabilir. Excel'de oluşturulan pdf dosyaları birleştirmek için ben PdfTk kullanıyorum. Bunun için bir makro var mı?
Saygılarımla

 

[veyselemre]

Evet, çok haklısınız. Neden olduğunu anlamadım ama, sayfaya sığdır kalmış.
Yine de sormuş olayım, belki başkalarının da işine yarayabilir. Excel'de oluşturulan pdf dosyaları birleştirmek için ben PdfTk kullanıyorum. Bunun için bir makro var mı?
Saygılarımla

Excel için direkt olarak rastlamadım, AcrobatPro yüklü olursa (bölme, birleştirme, çevirme, watermark ekleme, print/multiply print, vs, ) bir çok işlem yapılabiliyor. pdftk gibi harici programlarada shell ile komut gönderilip yapılabilir.

 

[Tevfik_Kursun]

Çok teşekkür ederim, AcrobatPro edinmenin zamanı gelmiş anlaşılan.
Saygılarımla

 

[serhatyaman43]

Sub pdf()
    Sheets("Sınav Listeleri").Select
    Rows.Hidden = False
    For i = 1 To 601 Step 40
        If Cells(i + 6, 4).Value = 0 Then
            Cells(i, 1).Resize(40).EntireRow.Hidden = True
        End If
    Next i
    pth = "D:\sınavlar"
    With CreateObject("Scripting.FileSystemObject")
        If Not .folderexists(pth) Then .CreateFolder pth
    End With
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pth & "\Liste.pdf"
End Sub

Öncelikle mesajınız için teşekkür ediyorum çok işime yaradı.
Yalnız iki sayfada bu şekilde gizli sayfaları yazdırmazken bir tane sayfada ne yaptıysam satırlar gizlenmesine rağmen yine bütün sayfaları yazdırıyor. Bunun nedeni ne olabilir?

 

[serhatyaman43]

Öncelikle mesajınız için teşekkür ediyorum çok işime yaradı.
Yalnız iki sayfada bu şekilde gizli sayfaları yazdırmazken bir tane sayfada ne yaptıysam satırlar gizlenmesine rağmen yine bütün sayfaları yazdırıyor. Bunun nedeni ne olabilir?

Tabi şurayı belirteyim gizli sayfaları boş olarak yazdırıyor.

 

[Tevfik_Kursun]

Merhaba,
Yanlış hatırlamıyorsam sizin dosyada (D7 hücresiydi galiba) kontrol edilen (boş ise denilen) hücre aslında boş değil, 46 nolu karakter ihtiva ediyor. Nedenini anlamadım. O nedenle ben fonksiyon ile bir çözüm üretmiştim.
Baskıyı da düzgün yapıyordu gibi hatırlıyorum.
İyi çalışmalar

 

[serhatyaman43]

Tevfik hocam sizin yol ile tek tek pdf yapıyordu. Bu makro ile tüm sayfaları tek pdf de alabiliyorum.
D7 D47 D87 ....
hücrelerinin boş olmasını algılıyor makroda 0 yazarak. Sınıf Liste Sınav Listeleri sayfasında çalışan sistem sadece istediğim sayfaları vermesine rağmen oturma planlarını alırken gizli sayfaları boş olarak çıkarıyor.