...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
...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
End Sub
adres...
...= 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
' Bilgi mesajını...
Forumdaki arşiv konularını incelemenizi öneririm. Bolca örnek var. Uygun olan bir konuyu kendi talebinize göre derleyip kullanabilirsiniz.
https://www.excel.web.tr/search/332179/?q=xlTypePDF&o=date
...edilemez")
Exit Sub
End If
Set shsayfa = ActiveSheet
yol = ActiveWorkbook.Path & "\" & [k1]
shsayfa.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
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.