PDF yi A3 Boyutunda Kaydet

[baydeniro]

Arkadaşlar Merhaba. Bir excel dosyasını PDF formatında kaydediyorum. Sayfa A3 olarak ayarlı. Ancak PDF yi oluştururken A4 olarak kaydediyor. Buna bir çare var mıdır ? Örnek dosya ekte.

 

[acar6783]

buna ihtiyaç yok bence pdf yi yazdırırken sayfa boyutunu a3 e sığdırın yine istediğiniz olacaktır

 

[baydeniro]

Arkadaşlar Merhaba. Bir excel dosyasını PDF formatında kaydediyorum. Sayfa A3 olarak ayarlı. Ancak PDF yi oluştururken A4 olarak kaydediyor. Buna bir çare var mıdır ?

 

[Zeki Gürsoy]

Hangi PDF reader kullandığınızı bilmiyorum ancak "Ruler (cetvel)" özelliğini açarsanız ebatların excel sayfasındaki kağıt boyutu ile aynı olduğunu görebilirsiniz. PDF reader zoom sizi yanıltmasın.

 

[baydeniro]

Sayın Zeki Gürsoy, bilgi paylaşımı için çok teşekkür ederim. Konu aslında şu şekilde. Excel dosyası içinde 500 den fazla PDF dosya üretiyoruz. Hepsini manuel olarak A3 e çevirmek takdir edersiniz ki oldukça zaman alıcı bir uğraşa dönüşüyor.

 

[baydeniro]

Excel dosyası içinde 500 den fazla PDF dosya üretiyoruz. Hepsini manuel olarak A3 e çevirmek takdir edersiniz ki oldukça zaman alıcı bir uğraşa dönüşüyor.

 

[Murat OSMA]

Serdar Bey, PdfCreator programını indirerek kullanabilirsiniz.
Bu programda Excel sayfasını seçtiğiniz ebatta PDF dosyası yapabilirsiniz.
Sadece tek bir sayfa değil, dilerseniz tüm sayfaları aynı pdf dosyasında, ya da ayrı ayrı pdf dosyaları olarak kaydedebilirsiniz.

Option Explicit

Sub Excel_Pdf()
    Dim pdfjob As PDFCreator.clsPDFCreator
    Dim sPDFName As String
    Dim sPDFPath As String
    Dim bRestart As Boolean

    sPDFName = ThisWorkbook.Name & ".pdf"
    sPDFPath = ActiveWorkbook.Path & Application.PathSeparator

    If IsEmpty(ActiveSheet.UsedRange) Then Exit Sub

    On Error GoTo EarlyExit
    Application.ScreenUpdating = False

    Set pdfjob = New PDFCreator.clsPDFCreator

    Do
        bRestart = False
        Set pdfjob = New PDFCreator.clsPDFCreator
        If pdfjob.cStart("/NoProcessingAtStartup") = False Then
            Shell "taskkill /f /im PDFCreator.exe", vbHide
            DoEvents
            Set pdfjob = Nothing
            bRestart = True
        End If
    Loop Until bRestart = False

    With pdfjob
        .cOption("UseAutosave") = 1
        .cOption("UseAutosaveDirectory") = 1
        .cOption("AutosaveDirectory") = sPDFPath
        .cOption("AutosaveFilename") = sPDFName
        .cOption("AutosaveFormat") = 0    ' 0 = PDF
        .cClearCache
    End With

    If Dir(sPDFPath & sPDFName) = sPDFName Then Kill (sPDFPath & sPDFName)

    ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"

    Do Until pdfjob.cCountOfPrintjobs = 1
        DoEvents
    Loop
    pdfjob.cPrinterStop = False

    Do
        DoEvents
    Loop Until Dir(sPDFPath & sPDFName) = sPDFName

Cleanup:
    Set pdfjob = Nothing
    Shell "taskkill /f /im PDFCreator.exe", vbHide
    On Error GoTo 0
    Application.ScreenUpdating = True
    Exit Sub

EarlyExit:
    MsgBox "Bir hata ile karşılaşıldı..  PDFCreator " & vbCrLf & _
           "sonlandırılmıştır.  Lütfen tekrar deneyin.", _
           vbCritical + vbOKOnly, "Hata"
    Resume Cleanup
End Sub

 

[baydeniro]

Sayın Murat Osma ilginize çok teşekkür ederim. PDF Creator u kurdum, kodu da kopyaladım ama olmadı. Neyse çok sorun değil, bir şekilde alternatif bir yöntem düşüneceğim. Sağlıcakla kalın.

 

[Murat OSMA]

Olmayan nedir Serdar Bey ? :dusun: Detay verirseniz yardımcı olurum.
Size çözüm olacak bir yöntem sundum, hemen olmadı deyip vazgeçecekseniz ya da boş verin diyecekseniz siz bilirsiniz.


İyi günler.

 

[baydeniro]

Estafurullah Sn. Murat Osma. Vazgeçmek anlamında değil, bilakis size fazla zahmet vermekten kaçındığım için. Aslında bu işlev çok gerekli ama şimdilik bir şekilde idare ettiğimizden size zahmet vermeyelim diye öyle yazdım.

 

[baydeniro]

Kodu çalıştırınca : Dim pdfjob As PDFCreator.clsPDFCreator aşamasında Error veriyor. Hata mesajı "User-defined type not-defined"

 

[baydeniro]

Aslında işin döngüsü şu şekilde : o yüzden belki de olmayacak bir şey yapmaya çalışıyor olabilirim. İşi şu şekilde yapıyoruz :
Excel dosyasındaki datalardan farklı 500 kişiye gidecek şekilde aynı formatta ama içerikleri farklı pdf dosyaları üretiyoruz. Kişiler çoğunluklar A3 formatına çevirmeyi unuttuklarında A4 çıktı alıyorlar ama küçük yazıları okuyamadıklarından çıktıları çöpe atıyorlar ve kağıtlar da israf oluyor.

 

[Murat OSMA]

Kodu çalıştırınca : Dim pdfjob As PDFCreator.clsPDFCreator aşamasında Error veriyor. Hata mesajı "User-defined type not-defined"

Referanslarda PDFCreator seçili değilse o referansı seçip deneyin.
PDFCreator ayarlarında PDF ebadını A3 seçtiğinizde istediğiniz olacaktır....

 

[baydeniro]

Çok teşekkür ederim Sn. Murat Osma. Şimdi çalıştı. Sağlıcakla kalın.

 

[Murat OSMA]

Rica ederim Serdar Bey, iyi günler.

 

[assenucler]

Bilgi istemi

Değerli Üstadım;


İyi akşamlar. Katkılarınız için teşekkürler.

Yukarıdaki konu dikkati çekti ve pdfcreator yazılımını indirip kurdum. Sizin eklediğiniz 3 xls dosyasını çalıştırdığımda, aşağıdaki hata iletisini alıyorum.

Çözüme ilişkin yardımınızı bekliyorum.

 

[Zeki Gürsoy]

Yukarıda 13 nolu mesaj.

 

[assenucler]

Teşekkürler sayın Zeki Gürsoy.