Makro pdf kaydet

[pnomokok]

Hazırladığım sipariş fişine burdan bulduğum makro koduyla pdf olarak kaydet ekledim tam uyarlayamadım. kayıtlarda C3 hücresini ve Bugünün tarihini alarak farklı farklı nasıl alabilirim. Veya bunu yazdır butonuna ekleyebilir miyim. hem yazdırıp hem pdf kafdedecek. koda ne eklemem lazım? Ve tekrar açtığımda hücreler boş olabilir mi bunu için temizle butonu mu koymam gerekir

 

[antonio]

Hazırladığım sipariş fişine burdan bulduğum makro koduyla pdf olarak kaydet ekledim tam uyarlayamadım. kayıtlarda C3 hücresini ve Bugünün tarihini alarak farklı farklı nasıl alabilirim. Veya bunu yazdır butonuna ekleyebilir miyim. hem yazdırıp hem pdf kafdedecek. koda ne eklemem lazım? Ve tekrar açtığımda hücreler boş olabilir mi bunu için temizle butonu mu koymam gerekir

1) PDF eklentisinin bilgisayarınıza kurulu olması lazım. (Aşağıda ki bağlantıdan temin edebilirsiniz):
http://www.microsoft.com/downloads/...3c-6d89-4f15-991b-63b07ba5f2e5&displayLang=tr

2) Eklentiyi yükledikten sonra bilgisayarınızı yeniden başlatınız.
3) Kodlarınızı aşağıda ki şekilde değiştiriniz.

Private Sub CommandButton3_Click()
Dim sh As Worksheet
Set sh = Worksheets("SİPARİŞ FORMU")
yol = ThisWorkbook.Path
isim = sh.Range("C3").Value & "-" & Format(Now, "yyyy-mm-dd-hh-mm")
sh.Select
sh.Range("A2:G28").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol _
& "\" & isim & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

ActiveWorkbook.Save
ActiveWindow.Close
End Sub

Kolay gelsin.

NOT: Pratik yöntem önermeleri (Göreceli dosya yolu) için Halit Özdemir'e teşekkürlerimle.. İşe yarıyor.

 

[pnomokok]

Teşekkürler

1) PDF eklentisinin bilgisayarınıza kurulu olması lazım. (Aşağıda ki bağlantıdan temin edebilirsiniz):
http://www.microsoft.com/downloads/...3c-6d89-4f15-991b-63b07ba5f2e5&displayLang=tr

2) Eklentiyi yükledikten sonra bilgisayarınızı yeniden başlatınız.
3) Kodlarınızı aşağıda ki şekilde değiştiriniz.

Private Sub CommandButton3_Click()
Dim sh As Worksheet
Set sh = Worksheets("SİPARİŞ FORMU")
yol = ThisWorkbook.Path
isim = sh.Range("C3").Value & "-" & Format(Now, "yyyy-mm-dd-hh-mm")
sh.Select
sh.Range("A2:G28").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol _
& "\" & isim & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

ActiveWorkbook.Save
ActiveWindow.Close
End Sub

Kolay gelsin.

NOT: Pratik yöntem önermeleri (Göreceli dosya yolu) için Halit Özdemir'e teşekkürlerimle.. İşe yarıyor.

Tşk ederim antonio... yalnız masaüstüne kaydediyor. masaüstüne değilde D sürücüsünde sipariş fişleri klasörüne kaydetmesi için ne eklemem lazım. Yazdır butonuna da ekledim çalıştı gerçekten sağol

 

[antonio]

Tşk ederim antonio... yalnız masaüstüne kaydediyor. masaüstüne değilde D sürücüsünde sipariş fişleri klasörüne kaydetmesi için ne eklemem lazım. Yazdır butonuna da ekledim çalıştı gerçekten sağol

Madem D sürücüsünde sipariş fişleri klasörüne kaydetmesini istiyorsun, o halde tek yapacağın şey dosyayı oraya kaydedip oradan çalıştırmaktır. Bu kadar kolay.
Çünkü dosya yolu (yol = ThisWorkbook.Path) şunu demek istiyor: Bu dosya hangi klasörde ise, dosya yolu odur. Gel onu bul, oraya müşteri adı ve tarihi ad olarak birleştirerek pdf formatında kaydet. Dosyayı hangi klasörden çalıştırırsan, o klasöre pdf formatını da kaydeder.
Olay budur.

 

[BedriA]

Madem D sürücüsünde sipariş fişleri klasörüne kaydetmesini istiyorsun, o halde tek yapacağın şey dosyayı oraya kaydedip oradan çalıştırmaktır. Bu kadar kolay.
Çünkü dosya yolu (yol = ThisWorkbook.Path) şunu demek istiyor: Bu dosya hangi klasörde ise, dosya yolu odur. Gel onu bul, oraya müşteri adı ve tarihi ad olarak birleştirerek pdf formatında kaydet. Dosyayı hangi klasörden çalıştırırsan, o klasöre pdf formatını da kaydeder.
Olay budur.

Hocam,

Yukarıdaki kodu ekteki örneğe nasıl uygulayabiliriz?