...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...
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.