Merhaba arkadaşlar,
daha önce burdan bulduğum ve kendi dosyama uyarladığım bir PDF kaydetme kodu vardı. 1-2 gün öncesine kadar çalışıyordu. Şu an butona tıklıyorum makro çalışmadığı gibi butonuda sayfanın başka bir yerine atıyor ve kullanım dışı kalıyor.
Bu süre zarfında şirketimiz sonunda xp den win7ye geçiş yaptı. Excel versiyonu değişmedi. Aslında excel de gerekli makro ayarlarını yaptım fakat çalıştıramadım.
Dosya şirket verileri içerdiği için paylaşamıyorum fakat makro kodu aşağıdaki gibidir.
Bir fikri olan varmı?
daha önce burdan bulduğum ve kendi dosyama uyarladığım bir PDF kaydetme kodu vardı. 1-2 gün öncesine kadar çalışıyordu. Şu an butona tıklıyorum makro çalışmadığı gibi butonuda sayfanın başka bir yerine atıyor ve kullanım dışı kalıyor.
Bu süre zarfında şirketimiz sonunda xp den win7ye geçiş yaptı. Excel versiyonu değişmedi. Aslında excel de gerekli makro ayarlarını yaptım fakat çalıştıramadım.
Dosya şirket verileri içerdiği için paylaşamıyorum fakat makro kodu aşağıdaki gibidir.
Bir fikri olan varmı?
Kod:
Private Sub PDF_Click()
dosya_adı = ActiveWorkbook.Name
'xls dosyasında hangi aralığın PDF'ye dönüştürüleceğini belirledik yani B1:I52
Range("Yazdırma_Alanı").Select
' PDF dosyasını isimlendirmek için ad tanımlıyoruz:
Servis_adi = Sheets("Cockpit").Range("B4").Value
Yil = Sheets("Cockpit").Range("D23").Value
Ay = Sheets("Cockpit").Range("B25").Value
' PDF dosyası oluşturuyoruz.
' PDF'nin kayıt yeri XLS dosyası neredeyse orada olacak.
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Application.ThisWorkbook.Path & "\" & Servis_adi & "_ " & Ay & Yil & strdate, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
'OpenAfterPublish:=True değerini False seçersek kayıt sonrası PDF otomatik açılmayacak.
End Sub
Private Sub CommandButton1_Click()
End Sub