pdf yapma

[sinemomec]

eklediğim dosyanın komut botonuna bastığımda pdf şeklinde yeni bir kayıt yapmasını istiyorum ve yardımınızı bekliyorum

 

[bzace]

Hayırlı günler,
Bir modül ekleyip denermisiniz.Kırmızı ile yazılan yeri kaydedeceğiniz yere göre kendinize göre uyarlayınız.

Sub Dikdörtgen4_Tıklat()
On Error Resume Next
dosya_adı = Trim(Cells(1, "z").Value) & " Sipariş Formu"
If dosya_adı = "" Then
MsgBox "Dosya adı yok"
Exit Sub
End If
a = MsgBox(" Kayıt etmek istiyormusunuz.?", vbYesNo + vbInformation, " Uyarı")
If a = vbYes Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
[COLOR="Red"][B]"C:\Users\BZACE\Desktop\"[/B][/COLOR] & dosya_adı, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox "işlem tamam!"
End If
If a = vbNo Then
MsgBox "işlemi iptal ettiniz.!"
End If
End Sub

Olumlu yada olumsuz görüş bildirirseniz diğer arkadaşlar duruma göre yardımcı olacaklardır.
Yada dosya farklı kaydet dosya türünü pdf olarak seçiniz. Daha sonra kaydet deyiniz.

 

[sinemomec]

Sub Dikdörtgen4_Tıklat()
On Error Resume Next
dosya_adı = Trim(Cells(1, "z").Value) & " Sipariş Formu"
If dosya_adı = "" Then
MsgBox "Dosya adı yok"
Exit Sub
End If
a = MsgBox(" Kayıt etmek istiyormusunuz.?", vbYesNo + vbInformation, " Uyarı")
If a = vbYes Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\BÜRO İŞLEMLERİ\2022 MAAŞ-EŞİ VEFAT-GSS-RAİÇ BEDEL HESAPLAMA\HESAPLAMA İŞLEMİNE TABİ TUTULAN KİŞİLER" & dosya_adı, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox "işlem tamam!"
End If
If a = vbNo Then
MsgBox "işlemi iptal ettiniz.!"
End If
End Sub
ama çalışmadı.

 

[bzace]

Bende çalışıyor.Dedim gibi kırmızı ile belirtilen yerde BZACE yazan yeri kendi bilgisayarınızın adını yazınız.Masa üstüne kaydedecekdir.

 

[sinemomec]

kusura bakmayın ama bilgisayarınız adı derken onu kavrayamadım ben bunu D de bir klasörün içine atmasını istiyorum ama yapmıyor.

 

[bzace]

Siz D sürücüsünde hangi dosya içine kaydedecekseniz yazarmısınız.

 

[polis-53]

word dosyası için makro varmı

 

[Emir Hüseyin Çoban]

word dosyası için makro varmı

. . .

Makro kaydet ile oluşturmayı deneyiniz.

. . .

 

[polis-53]

beceremedim bir yardımcı olursanız sevineceğim
iyi çalışmalar.

 

[bzace]

Sayın Polis,
http://www.microsoft.com/downloads/tr-tr
Linkin deki eklentiyi ben kendim için indirip kurmuşdum.İşinizi görür inşallah.

 

[Emir Hüseyin Çoban]

. . .

Word için

Sub makro()

yol = ActiveDocument.Path
isim = ActiveDocument.Name

ActiveDocument.ExportAsFixedFormat _
OutputFileName:=yol & "\" & isim & ".pdf", _
ExportFormat:=wdExportFormatPDF

End Sub

. . .

 

[sinemomec]

tamam halletim çalışıyo ama ben bunu D ye kaydetmek istiyorum.

 

[sinemomec]

Hallettim teşekkurler

 

[bzace]

Kolay gelsin. Çalışmalarınız da başarılar.