Çözüldü yazdırma alanını pdf olarak kaydet

[tukayf]

Ekteki dosyada plan sayfasında B2, son dolu B satırı ile C2 de bulunan BUGÜN ün tarihinden sağa doğru istediğimiz kadar sütunu (sağdaki sütun sürekli değişiyor 3ten 15 e kadar.genellikle 8 sütun oluyor) farklı kaydet ile aynı dizine Çalışma Sistemi Günün tarihi olarak pdf şeklinde kaydetmek istiyoruz. Yardımlar için şimdiden teşekkürler.

 

[td877]

Dener misiniz?

Sub Farklı_Kaydet()
'EXCEL RAPOR DOSYASI OLUŞTURMA

yol = ThisWorkbook.Path
isim = ThisWorkbook.Name
tarih = Date
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & "/" & isim & " - " & tarih & " .pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True


End Sub

 

[tukayf]

Sn. td877 çözüm için teşekkürler. Ancak sütun seçme kriteri de ekleyebilseydiniz tam olacaktı bizim için.

 

[td877]

Rica ederim iyi çalışmalar.

 

[td877]

Dener misiniz?

Sub Farklı_Kaydet()
'EXCEL RAPOR DOSYASI OLUŞTURMA
Dim ThisRng As Range
If Selection.Count = 1 Then
Set ThisRng = Application.InputBox("Satır ve Sütun Seçiniz", "Seçim Alanı", Type:=8)
Else
Set ThisRng = Selection
End If
yol = ThisWorkbook.Path
isim = ThisWorkbook.Name
tarih = Date
ThisRng.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & "/" & isim & " - " & tarih & " .pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True
End Sub

 

[tukayf]

ilk çalıştırma da inputbox sordu ancak daha sonra bir daha sormadı. ilk kodu kullanacağız hocam ilginiz ve yardımınız için çok teşekkürler.

 

[td877]

Sub Farklı_Kaydet()
'EXCEL RAPOR DOSYASI OLUŞTURMA

yol = ThisWorkbook.Path
isim = ThisWorkbook.Name
tarih = Date
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & "/" & isim & " - " & tarih & " .pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True
End Sub


Bu şekilde yaparsanız inputbox olmadan sadece mouse ile seçtiğiniz alanı pdf olarak kaydetmesi gerekli.