pdf kayıt

[igultekin2000]

iyi günler;
çalıma sayfasını PDF olarak kaydediyorum. ama kayıt yerini verirken referans vermeden yani çalışma sayfasının dolu kısmını pdf olarak yazdırmak istiyorum. kullandığım kod

Sub KOD_PDF()
yol = ThisWorkbook.Path
isim = Format(Range("A2").Value, "ddmmyyyy hhmm") ' başlamasatırı

Sheets("Sayfa1").Select ' hangi sayfanın hangi hücreleri kaydedilecek
ActiveSheet.Range("a1:J61").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & "/" & isim & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True

End Sub

bunu nası revize edebilirim.

 

[hoguz2]

merhaba dolu kısım derken yazdiracaginiz hucreler butunluk sagliyorsa aralarinda bos sutun ve satırlar yoksa CurrentRegion methodu kulanilabilir. ama bilemiyorum dedigim gibi bos sutun ve satirlar oluyorsa eksiklik olur.


Range("A1").CurrentRegion.Select

A1 e bitisik dolu hucreleri secer. boyle bir sey isinizi gorur mu ?

 

[igultekin2000]

şu şekilde olursa

merhaba dolu kısım derken yazdiracaginiz hucreler butunluk sagliyorsa aralarinda bos sutun ve satırlar yoksa CurrentRegion methodu kulanilabilir. ama bilemiyorum dedigim gibi bos sutun ve satirlar oluyorsa eksiklik olur.


Range("A1").CurrentRegion.Select

A1 e bitisik dolu hucreleri secer. boyle bir sey isinizi gorur mu ?

bendeki kodu yazdırılacak alan A1:J (son dolu satır) şeklinde olması gerekiyor, J sütununa sürekli değer girmek istemiyorum. bazı sayfalar 10 satır, bazı sayfalar 50 satır olabiliyor.

A-J gibi sütunu belirlenen sayfanın A4' sığacak şekilde masa üstüne PDF olarak kaydetmek. çok değişik alternatifler var ama ayıklayamadım. kimi çalışma kitabını komple kaydediyor, kimi kaydedersen isim istiyor vb , benim istediğim sadece belirittiğim şekilde masa üstüne her hangi bir isim, tarih veb şekilde kaydetmek. Teşekkürler

 

[Korhan Ayhan]

Deneyiniz.

Sub KOD_PDF()
yol = ThisWorkbook.Path
isim = Format(Range("A2").Value, "ddmmyyyy hhmm") ' başlamasatırı

Sheets("Sayfa1").Select ' hangi sayfanın hangi hücreleri kaydedilecek
Son=Cells(Rows.Count, "J").End(3).Row
ActiveSheet.Range("A1:J" & Son).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & "/" & isim & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True
End Sub

 

[igultekin2000]

sadece A2 satırı

Deneyiniz.

Sub KOD_PDF()
yol = ThisWorkbook.Path
isim = Format(Range("A2").Value, "ddmmyyyy hhmm") ' başlamasatırı

Sheets("Sayfa1").Select ' hangi sayfanın hangi hücreleri kaydedilecek
Son=Cells(Rows.Count, "J").End(3).Row
ActiveSheet.Range("A1:J" & Son).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & "/" & isim & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True
End Sub

kod bölümü ve modül olarak denedim sadece A2 ile başlayan satırı kopyalıyor.

 

[Korhan Ayhan]

Sizin kodunuz ilk başta düzgün çalışıyor muydu?

Eğer çalışıyorsa ben sadece son satırı bulma kodu ekledim. Son satırı "J" sütununa göre buluyor. Bu sütundaki satırlar boş ise doğru hücre aralığını almayabilir.

 

[igultekin2000]

kod sorunsuz

Sizin kodunuz ilk başta düzgün çalışıyor muydu?

Eğer çalışıyorsa ben sadece son satırı bulma kodu ekledim. Son satırı "J" sütununa göre buluyor. Bu sütundaki satırlar boş ise doğru hücre aralığını almayabilir.

dediğiniz gibi yanlışlıkla boş sütunu yazmışım, sorunsuz çalışıyor, teşekkürler