pdf olarak kaydetme

[farisakboga]

Ekteki dosyada öğrencilerim için hazırladığım toplama işlemi şablonu var. F9 tuşu ile alıştırmaları yenileyip yazıcıya gönderiyorum. bu da vakit alıyor. alıştırma sayfasını otomatik yenileyip farklı sayfalar halinde 100 defa çoğaltacak ve hepsini bir pdf dosyasına yazdıracak makro yazılabilir mi? Teşekkür ederim.

 

[YUSUF44]

Sizin için dosyanın pdf olarak kaydedilmesi mi önemli yoksa sayfanın yenilenip ayrı ayrı yazdırılması mı önemli?

 

[farisakboga]

Sizin için dosyanın pdf olarak kaydedilmesi mi önemli yoksa sayfanın yenilenip ayrı ayrı yazdırılması mı önemli?

İkisi de. Pdf dosyası elimde olmayınca derste projeksiyon ile sunum yapmak mümkün olmuyor. ama önceliğim pdf oluşması çünkü pdf yi toplu yazdırmak mümkün.

 

[YUSUF44]

Aşağıdaki makroyu deneyin:

Sub yaz()
On Error GoTo 10
Dim yol As String
yol = Application.ThisWorkbook.Path
ChDir yol

adet = InputBox("Kaç farklı sayfa hazırlansın?")
kopya = InputBox("Her sayfa kaç kere yazdırılsın?")
With ActiveSheet.PageSetup
    .FitToPagesWide = 1
    .FitToPagesTall = 1
End With

For i = 1 To adet
    Calculate
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        yol & "\02-mat alt alta toplama " & Format(Date, "yyyymmdd") & Format(Time, "hhmmss") & Format(i, "000") & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
    ActiveWindow.SelectedSheets.PrintOut Copies:=kopya, Collate:=True, _
        IgnorePrintAreas:=False
Next
Exit Sub
10:
MsgBox "Lütfen sayısal veriler kullanınız!" & Chr(10) & Chr(10) & "İşlem tamamlanmadı"
End Sub

 

[farisakboga]

Aşağıdaki makroyu deneyin:

On Error GoTo 10
Dim yol As String
yol = Application.ThisWorkbook.Path
ChDir yol

adet = InputBox("Kaç farklı sayfa hazırlansın?")
kopya = InputBox("Her sayfa kaç kere yazdırılsın?")
With ActiveSheet.PageSetup
    .FitToPagesWide = 1
    .FitToPagesTall = 1
End With

For i = 1 To adet
    Calculate
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        yol & "\02-mat alt alta toplama " & Format(Date, "yyyymmdd") & Format(Time, "hhmmss") & Format(i, "000") & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
    ActiveWindow.SelectedSheets.PrintOut Copies:=kopya, Collate:=True, _
        IgnorePrintAreas:=False
Next
Exit Sub
10:
MsgBox "Lütfen sayısal veriler kullanınız!" & Chr(10) & Chr(10) & "İşlem tamamlanmadı"
End Sub

Makroyu bir türlü dosyaya entegre edemedim. Dosyaya ekleyerek yardımcı olmanız mümkün mü? Minettarım.

 

[YUSUF44]

Kodun başında sub yaz() satırını unutmuşum, yukarda düzeltme yaptım.

Dosyaya eklemek için kodları kopyalayın.
Dosyanızda Alt+F11 yaparak ya da sayfa adına sağ tıklayıp Kod görüntüle diyerek VBA sayfasını açın
Açılan sayfada üstte Insert menüsünden Module'yi seçin
Kopyalanan veriyi açılan boş sayfaya yapıştırın
Excel sayfasına geçip sayfaya bir düğme/nesne/resim ekleyin
Eklediğiniz şeye sağ tıklayıp Makro ata deyin
Açılan menüde yaz makrosunu seçip işlemi tamamlayın
Artık o şeye tıkladığınızda makro çalışacaktır.

 

[farisakboga]

Kodun başında sub yaz() satırını unutmuşum, yukarda düzeltme yaptım.

Dosyaya eklemek için kodları kopyalayın.
Dosyanızda Alt+F11 yaparak ya da sayfa adına sağ tıklayıp Kod görüntüle diyerek VBA sayfasını açın
Açılan sayfada üstte Insert menüsünden Module'yi seçin
Kopyalanan veriyi açılan boş sayfaya yapıştırın
Excel sayfasına geçip sayfaya bir düğme/nesne/resim ekleyin
Eklediğiniz şeye sağ tıklayıp Makro ata deyin
Açılan menüde yaz makrosunu seçip işlemi tamamlayın
Artık o şeye tıkladığınızda makro çalışacaktır.

Çok teşekkür ederim. Sanal yazıcı ile pdf olarak yazdırabildim. Elinize sağlık!