Soru PDF KAYDETME MAKROSU

[serdar.gul]

Herkese Merhaba ,

öncelikle hiç kod bilgim yok.
daha önce forumdan yardım alarak yapılan aşağıdaki kodda pdf e dönüştürüp masa üstüne kayıt yapıyorum. istediğim pdf kayıt yaparken %100 ölçekle kayıt yapmasını sağlaya bilir miyiz. koda nasıl bir düzeltme yapılması gerekir.

teşekkürler

Sub test()
Dim s1 As Worksheet, konum As String, adi As String, uzanti As String

Set s1 = Sayfa1 'çıktı alınacak sertifika sayfası
ActiveSheet.Unprotect
konum = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"
adi = s1.Range("D8") & "EĞİTİM SERTİFİKASI (" & s1.Range("B1") & s1.Range("C1") & ") " & s1.Range("E20")
uzanti = ".pdf"

s1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=konum & adi & uzanti
ActiveSheet.Protect
End Sub

 

[tamer42]

Herkese Merhaba ,

öncelikle hiç kod bilgim yok.
daha önce forumdan yardım alarak yapılan aşağıdaki kodda pdf e dönüştürüp masa üstüne kayıt yapıyorum. istediğim pdf kayıt yaparken %100 ölçekle kayıt yapmasını sağlaya bilir miyiz. koda nasıl bir düzeltme yapılması gerekir.

teşekkürler

Sub test()
Dim s1 As Worksheet, konum As String, adi As String, uzanti As String

Set s1 = Sayfa1 'çıktı alınacak sertifika sayfası
ActiveSheet.Unprotect
konum = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"
adi = s1.Range("D8") & "EĞİTİM SERTİFİKASI (" & s1.Range("B1") & s1.Range("C1") & ") " & s1.Range("E20")
uzanti = ".pdf"

s1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=konum & adi & uzanti
ActiveSheet.Protect
End Sub

Aşağıdaki kodları ekler misiniz,
"Sayfaya Sığdır"

    With ActiveSheet.PageSetup
        .Zoom = False
    End With

 

[serdar.gul]

Aşağıdaki kodları ekler misiniz,
"Sayfaya Sığdır"

    With ActiveSheet.PageSetup
        .Zoom = False
    End With

Tamer Hocam cevabınız için teşekkürler.
verdiğiniz kodu koydum fakat pdf yi açtığımda %149 ölçekle gösteriyor. bunu %100 olarak göstermesini sağlayabilir miyiz? teşekkürler

 

[tamer42]

Tamer Hocam cevabınız için teşekkürler.
verdiğiniz kodu koydum fakat pdf yi açtığımda %149 ölçekle gösteriyor. bunu %100 olarak göstermesini sağlayabilir miyiz? teşekkürler

    With ActiveSheet.PageSetup

        .Zoom = 100
       
    End With