yazdırma kodu

[farisakboga]

Aşağıda buradaki arkadaşların yardımıyla oluşturulmuş ve işime oldukça yarayan bir kod var. bu kod sayfayı yineleyerek istediğimiz kadar çıktı almaya yarıyor. ancak pdf olarak çıktı aldığım zaman pdf nin ismi daha önce tanımladığım isim oluyor. bunu revize edip pdf ismi olarak çıktı alınan sayfanın ismini otomatik verebilir miyiz?


Sub yazdir()
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 & "\Toplama.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

 

[muratboz06]

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & "\Toplama.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False

satırlarını

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & "\" & ActiveSheet.Name & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False

ile değiştirseniz çalışacaktır.

 

[farisakboga]

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & "\Toplama.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False

satırlarını

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & "\" & ActiveSheet.Name & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False

ile değiştirseniz çalışacaktır.

çalıştı ancak masaüstüne yine dosya ismiyle pdf şeklinde yazdırıyor. dosyanın bulunduğu konuma ise son yazdırmayı sayfa ismiyle pdf olarak yazdırıyor. Yani yineleyerek 10 kez yazdırmasını istiyorsam masaüstüne 10 sayfadan oluşan dosya ismini alan bir pdf dosyası oluşturuyor. dosyanın dizininde ise sayfa adı ile 1 sayfadan oluşan pdf oluşturuyor. benim istediğim 10 sayfayı da masaüstünde sayfa ismi ile pdf haline getirmek. umarım anlatabilmişimdir. teşekkür ederim.

 

[farisakboga]

yardım lütfen.