Çalışma Sayfasını PDF olarak dışa aktarma

[kerim55]

Arkadaşlar Bilgi ve Form adlı iki çalışma sayfam var. Bilgi formuna buton yerleştirerek Form sayfasını masaüstünde bulunan Formlar klasörüne PDF olarak kayıt etmek istiyorum. Birden fazla kayıt yapacağım için her kayıtın isminin farklı olması gerekiyor otomatik atayabilir ismin önemi yok. Devlet kurumunda işleri hızlandırmak adına birşeyler yapmaya çalışıyorum yardımcı olursanız sevinirim.

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Sub kod()
isim = "Form_" & Format(Now, "yyyymmddhhnn") & ".pdf"
Sheets("Form").ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Formlar\" & isim, _
            OpenAfterPublish:=False
End Sub

 

[muhasebeciyiz]

Sub KaydetPDF()

Dim MyPath As String
Dim MyFileName As String
Dim Counter As Integer

MyPath = "C:\Users\Administrator\Desktop\Formlar\"

If Right(MyPath, 1) <> "\" Then
MyPath = MyPath & "\"
End If

Counter = 1
MyFileName = MyPath & "Form_" & Counter & ".pdf"
Do While Dir(MyFileName) <> ""
Counter = Counter + 1
MyFileName = MyPath & "Form_" & Counter & ".pdf"
Loop

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFileName, Quality:=xlQualityStandard

MsgBox "Form PDF olarak kaydedildi: " & MyFileName, vbInformation
End Sub



Ömer beyin mesajını sonradan gördüm buda alternatif olsun Deneyiniz

 

[kerim55]

Merhaba,
Deneyiniz...

Sub kod()
isim = "Form_" & Format(Now, "yyyymmddhhnn") & ".pdf"
Sheets("Form").ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Formlar\" & isim, _
            OpenAfterPublish:=False
End Sub

Private Sub CommandButton1_Click()
Sayfa3.PrintOut
Sayfa4.PrintOut
Sayfa5.PrintOut
Sayfa6.PrintOut
Sayfa7.PrintOut
End Sub


Sub kod()
isim = "Form_" & Format(Now, "yyyymmddhhnn") & ".pdf"
Sheets("Sayfa8").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Formlar\" & isim, _
OpenAfterPublish:=False
End Sub


hocam cevapladığınız için teşekkürler fakat çalıştıramadım

 

[muhasebeciyiz]

3 nolu mesajı denemek istermisiniz

 

[kerim55]

Private Sub CommandButton1_Click()
Sayfa3.PrintOut
Sayfa4.PrintOut
Sayfa5.PrintOut
Sayfa6.PrintOut
Sayfa7.PrintOut
End Sub

Sub KaydetPDF()

Dim MyPath As String
Dim MyFileName As String
Dim Counter As Integer

MyPath = "C:\Users\Administrator\Desktop\Formlar\"

If Right(MyPath, 1) <> "\" Then
MyPath = MyPath & "\"
End If

Counter = 1
MyFileName = MyPath & "Form_" & Counter & ".pdf"
Do While Dir(MyFileName) <> ""
Counter = Counter + 1
MyFileName = MyPath & "Form_" & Counter & ".pdf"
Loop

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFileName, Quality:=xlQualityStandard

MsgBox "Form PDF olarak kaydedildi: " & MyFileName, vbInformation
End Sub



Ömer beyin mesajını sonradan gördüm buda alternatif olsun Deneyiniz

Private Sub CommandButton1_Click()
Sayfa3.PrintOut
Sayfa4.PrintOut
Sayfa5.PrintOut
Sayfa6.PrintOut
Sayfa7.PrintOut
End Sub

Sub KaydetPDF()

Dim MyPath As String
Dim MyFileName As String
Dim Counter As Integer

MyPath = "C:\Users\Administrator\Desktop\Formlar\"

If Right(MyPath, 1) <> "\" Then
MyPath = MyPath & "\"
End If

Counter = 1
MyFileName = MyPath & "Sayfa8_" & Counter & ".pdf"
Do While Dir(MyFileName) <> ""
Counter = Counter + 1
MyFileName = MyPath & "Sayfa8_" & Counter & ".pdf"
Loop

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFileName, Quality:=xlQualityStandard

MsgBox "Form PDF olarak kaydedildi: " & MyFileName, vbInformation
End Sub

hocam cevapladığınız için teşekkürler fakat çalıştıramadım

 

[kerim55]

3 nolu mesajı denemek istermisiniz

hocam sayfada yazdırmak için bir buton var. 2. bir buton oluşturup verdiğiniz kodları yazıyorum Form çalışma sayfası isimlerini Sayfa8 olarak değiştirdim fakat kayıt etmiyor.

 

[kerim55]

3 nolu mesajı denemek istermisiniz

Hocam verdiğiniz kodda masaüstündeki Formlar klasörünü göstermenin başka yolu var mı çünkü kurum bilgisayarı ve herkesin sicili ile açılıyor. Administrator algılamayabilir.

MyPath = "C:\Users\Administrator\Desktop\Formlar\"

 

[muhasebeciyiz]

Örnek dosyaya bakarmınız .
Olmaz ise örnek dosya paylaşırmısınız.
Form sayfasının ismini değiştirmeyiniz.Sayfa8 yaparsanız makro çalışmaz
MyPath = "C:\Users\Administrator\Desktop\Formlar\" istediğiniz gibi değiştiriniz

 

[kerim55]

Örnek dosyaya bakarmınız .
Olmaz ise örnek dosya paylaşırmısınız.
Form sayfasının ismini değiştirmeyiniz.Sayfa8 yaparsanız makro çalışmaz
MyPath = "C:\Users\Administrator\Desktop\Formlar\" istediğiniz gibi değiştiriniz

Sayfa8 i Form olarak değiştirdim fakat yine kayıt etmiyor. Size özelden yazdım hocam yardımcı olursnaız sevinirim.

 

[CengizYurek]

Sayfa8 i Form olarak değiştirdim fakat yine kayıt etmiyor. Size özelden yazdım hocam yardımcı olursnaız sevinirim.

Örnek dosyanızı burda paylaşırsanız daha kolay yardımcı olabiliriz