- Katılım
- 27 Şubat 2008
- Mesajlar
- 307
- Excel Vers. ve Dili
- Office 2016
excelde safyaları pdf çevir makrosu yaptım. aşağıda görebilirsiniz. Fakat dosyayı kayıt edip tekrar açtığımda her seferinde bir sorunla karşılaştı düzeltme istiyormusunuz uyarısı veriyor. Hayır dersem çıkış yapıyor. Evet dersem onarma işleminde makroları siliyor.
Sheets("RS 30").Select
Sheets("RS 30").PageSetup.PrintArea = Range("a1:J32").Address
aktifsayfa = ActiveSheet.Name
Sheets(Array("RS 30")).Select
yol = ThisWorkbook.Path & "\"
isim = "RS 30"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & isim & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Sheets(aktifsayfa).Select
Sheets("RS 30").Select
Sheets("RS 30").PageSetup.PrintArea = Range("a1:J32").Address
aktifsayfa = ActiveSheet.Name
Sheets(Array("RS 30")).Select
yol = ThisWorkbook.Path & "\"
isim = "RS 30"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & isim & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Sheets(aktifsayfa).Select
