...Path = Worksheets("Ayarlar").Range("B1").Text
Model = Worksheets("Material removal").Range("textbox52").Value
Seri = Worksheets("Material removal").Range("textbox51").Value
Worksheets("Material removal").ExportAsFixedFormat xlTypePDF, Filename:=Path & Model & "_" & Seri & ".pdf"
End Sub
...Destination:=NewSheet.Cells
For Each obj In NewSheet.Shapes
obj.Delete
Next obj
NewSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=DosyaYolu, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _...
...yok"
Exit Sub
End If
Kaynak = "C:\Perform_pdf\"
If Right(Kaynak, 1) <> "\" Then
End If
yer = Kaynak & dosya_adı
Range("A1:AU48").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yer, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False...
...& Satir4).Value = Bilgi4
' Yazdırma alanını belirle ve PDF olarak kaydet
With Proforma
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=TamDosyaAdi, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
End With...
Korhan Bey Necati Bey'in söylediği şekilde
ActiveDocument.ExportAsFixedFormat OutputFileName:=Yol, _
satırını
docword.ExportAsFixedFormat OutputFileName:=Yol, _
olarak değiştirince düzeldi.
Şahsınıza da çok çok teşekkür ederim. Ellerinize, emeklerinize sağlık.
...Böylece çok daha kullanışlı oldu
If CheckBox5 = True Then
Yol = ThisWorkbook.Path & "\Hadisler_" & say5 & ".pdf"
docword.ExportAsFixedFormat OutputFileName:=Yol, _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, _
OptimizeFor:=wdExportOptimizeForPrint...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.