Otomatik yazdırma ve PDF olarak kaydetme hakkında...

[yesimgurol]

Merhabalar;
Excel sayfasında makro ile otomatik sayfa yazdırabiliyorum,örneklere baktığımda buldum.
Fakat şöyle bir sıkıntım var, bir excel sayfasına ekle menüsünden resim ekliyorum,yazdır komutu verdiğimde bu eklediğim resmin yazdırılmasını istemiyorum.
Bunun akabinde aynı makro içerisinde sayfaya yazdır komutu verdikten sonra yazdırılan sayfanın bu kez eklenen resimli hali ile PDF olarak belirlenen bir klasöre kayıt olması mümkün müdür?
Ekte bulunan dosyam da açıklamaya çalıştım.

 

[yesimgurol]

Merhabalar;
Forumda yapılan örneklere bakarak dosyayı PDF olarak kaydetmeyi başardım.:mutlu::mutlu: PDF olarak keydetme kodlarım ;

Sub KOD()
    
    sor2 = MsgBox("PDF Dosyası Kaydetmek İstiyor Musunuz ? ", vbYesNo)
    If sor2 = vbNo Then Exit Sub
    
    'yol = "C:\Users\yesım\Desktop\f"
    yol = "C:\Users\yesım\Desktop\f"
    isim = Range("b6").Value
    
    Dim Fs As Object
    Set Fs = CreateObject("Scripting.FileSystemObject")
    If Fs.FileExists(yol & "/" & isim & ".pdf") Then
        sor = MsgBox("Dosya Var Yinede Devam Etmek İstiyor Musunuz ? ", vbYesNo)
        If sor = vbNo Then Exit Sub
    Else
    End If
    
    Sheets("RAPOR").Select
    ActiveSheet.Range("A2:H108").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    yol & "/" & isim & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True
    
End Sub

Şİmdi sadece bu kodlara ek olarak ,yapamadığım sorunum ise; RAPOR sayfasına resimlerden eklediğim resim haricinde kalan kısmın yazdırılması..Yani sayfadaki resim hariç diğer bilgilerin yazdırılması kaldı.

 

[yesimgurol]

Sayfadaki resmin üzerine sağ tıklayıp,Boyut ve Özelliklerden nesne yazdır yanındaki onay işaretini kaldırdığımda resim görünüyor fakat yazdırılmıyor,istediğim gibi oldu aslında,ama bu sefer de PDF biçiminde kaydedildiğinde resim kaydedilmedi:-(

 

[yesimgurol]

Tekrar merhabalar;
Sayfayı yazdırma kodlarına acaba resmi kaldırıp sonra tekrar yazdırma işlemi bitince resmi ekleme gibi bir çözüm olabilir mi?
Yazdırma kodum ;

Sub Makro1()
Sheets("RAPOR").PrintOut , 1
End Sub

 

[Orion1]

Pratik çözüm,2 sayfa yapın.
biri resimli sayfa olsun biri resimsiz sayfa olsun.
Resimliyi pdf yapın,resimsizide yazdırın.

 

[halit3]

Resimi yazdırmamak için kod:

Sheets("RAPOR").Shapes("1 Resim").OLEFormat.Object.PrintObject = False

Resimi yazdırmak için kod:

Sheets("RAPOR").Shapes("1 Resim").OLEFormat.Object.PrintObject = True

 

[yesimgurol]

Pratik çözüm,2 sayfa yapın.
biri resimli sayfa olsun biri resimsiz sayfa olsun.
Resimliyi pdf yapın,resimsizide yazdırın.

Bakış açısı işte Teşekkürler, Sayın Orion1,pratik çözüm işe yaradı.:bravo:

 

[halit3]

kod:

Sub KOD()
    
    sor2 = MsgBox("PDF Dosyası Kaydetmek İstiyor Musunuz ? ", vbYesNo)
    If sor2 = vbNo Then Exit Sub
    
    'yol = "C:\Users\yesım\Desktop\f"
    yol = "C:\Users\yesım\Desktop\f"
    isim = Range("b6").Value
    
    Dim Fs As Object
    Set Fs = CreateObject("Scripting.FileSystemObject")
    If Fs.FileExists(yol & "/" & isim & ".pdf") Then
        sor = MsgBox("Dosya Var Yinede Devam Etmek İstiyor Musunuz ? ", vbYesNo)
        If sor = vbNo Then Exit Sub
    Else
    End If
    
  [COLOR="Red"]  Sheets("RAPOR").Shapes("1 Resim").OLEFormat.Object.PrintObject = True[/COLOR]
    Sheets("RAPOR")Range("A2:H108").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    yol & "/" & isim & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True
    [COLOR="red"]Sheets("RAPOR").Shapes("1 Resim").OLEFormat.Object.PrintObject = False[/COLOR]
End Sub

 

[yesimgurol]

Resimi yazdırmamak için kod:

Sheets("RAPOR").Shapes("1 Resim").OLEFormat.Object.PrintObject = False

Resimi yazdırmak için kod:

Sheets("RAPOR").Shapes("1 Resim").OLEFormat.Object.PrintObject = True

Halit Bey,bu kodları daha şimdi gördüm doğrusu tam da istediğim gibi olmuş.Sayın Orion1,hocamızın pratik çözümü de harika oldu.:bravo::dua2::mutlu::mutlu:

 

[serocco]

Merhaba, Bende TextBox7 ye yazılanı isim yapacak şekilde pdf olarak kaydetmeye çalışıyorum ancak çok acemiyim bir sürü kod denedim hepsi hata verdi :S. Yardımcı olabilir misiniz ?. Tekrar konu açmak istemedim alakalı konu oldugu için.

Bu şekilde bir kod buldum kayıt yapıyor ancak ismi benim textbox a yazdığımı yapamadım.

With ActiveSheet
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="C:\Users\xxxx\File_Name.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End With

 

[askm]

With ActiveSheet
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="C:\Users\xxxx\" & textbox1.text & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End With

 

[serocco]

Çok teşekkür ederim. Çalıştı.

 

[yyhy]

Aynı konuya benimde ihtiyacım var. Acaba çalışan örnek dosyayı tekrar ekleyebilir misiniz?
https://www.excel.web.tr/threads/yazdirilan-sayfalari-pdf-olarak-kaydetmek.185556/ konu açmıştım çözüm beklerken sorunumu çözebilir miyim düşüncesindeyim. İyi günler.