- Katılım
- 15 Ağustos 2009
- Mesajlar
- 511
- Excel Vers. ve Dili
- Excel Vers. ve Dili : Ofis 2016 Tr
- Altın Üyelik Bitiş Tarihi
- 13.09.2027
Merhabalar,
Satıs sayfası gizli, sayfayı görünür yapıp PDF aldıktan sonra tekrar gizleyip sayfa1 i seçiyorum.
Satıs sayfası b2 den ismini aldırıyorum ve tarih saat ilave ettirerek pdf olarak kaydediyorum.
Aşağıdaki kodlarla 2016TR office'de sayfayı PDF yaptığımda herhangi bir problem yaşamıyorum.
Fakat aynı kodlarla 2007TR office'de hata alıyorum. Debug yaptığımda koyu yazılı satır sarı alanlı oluyor.
Kodda nasıl bir değişiklik yaparak office 2007de çalıştırabilirim.
Bilgi için şimdiden teşekkürler...
HATA:
Run tme error '5':
Invalid procedure call and argument
KOD:
Dim simdi As String
simdi = Now
simdi = Replace(simdi, ":", ".")
Sheets("Satıs").Visible = True
Sheets("Satıs").Select
Sheets("Satıs").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\windows 8.1\Desktop\S P\A V\SATIŞLAR\" & Sheets("Satıs").Range("b2") & " - " & simdi & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Sheets("Satıs").Visible = False
Sheets("Sayfa1").Select
Satıs sayfası gizli, sayfayı görünür yapıp PDF aldıktan sonra tekrar gizleyip sayfa1 i seçiyorum.
Satıs sayfası b2 den ismini aldırıyorum ve tarih saat ilave ettirerek pdf olarak kaydediyorum.
Aşağıdaki kodlarla 2016TR office'de sayfayı PDF yaptığımda herhangi bir problem yaşamıyorum.
Fakat aynı kodlarla 2007TR office'de hata alıyorum. Debug yaptığımda koyu yazılı satır sarı alanlı oluyor.
Kodda nasıl bir değişiklik yaparak office 2007de çalıştırabilirim.
Bilgi için şimdiden teşekkürler...
HATA:
Run tme error '5':
Invalid procedure call and argument
KOD:
Dim simdi As String
simdi = Now
simdi = Replace(simdi, ":", ".")
Sheets("Satıs").Visible = True
Sheets("Satıs").Select
Sheets("Satıs").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\windows 8.1\Desktop\S P\A V\SATIŞLAR\" & Sheets("Satıs").Range("b2") & " - " & simdi & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Sheets("Satıs").Visible = False
Sheets("Sayfa1").Select