Çoklu sayfalar içinde istenmeyen sayfayı SAYFA ÖNİZLEME'den nasıl çıkartırız?

[parcequil]

Arkadaşlar iyi günler,

Çoklu sayfalarımızın olduğu excel dosyalarımızı makro ile PDF çevirip arşivliyoruz.

Buradaki sorunumuz sayfalardan bazılarının PDF çevrilmesini istemiyoruz fakat PRINT PREVIEW (Sayfa Önizlemeyi) boş bırakamıyoruz, küçük bir hücre bile seçsek boş bir sayfayı PDF ekliyor. Tek tek sayfa seçmeden dosyayı PDF çevir dediğimiz için oluyor.

Bu sorunu nasıl aşabiliriz? PRINT PREVIEW (Sayfa Önizlemeyi) sıfır veya boş seçme olayı var mıdır?

 

[Ömer BARAN]

Merhaba.

Öncelikle, KULLANICI PROFİLİ bölümü ile İMZA blokunda kullandığınız Ms.Excel versiyon bilgisinin aynı olmasını sağlayınız.
Sorunuzun cevabı, kullandığınız Ms.Excel versiyonuna göre değişebilir.

Kullandığınız makroyu paylaşırsanız, bu makroya ilave yapılarak istediğiniz husus halledilebilir sanırım.
.

 

[parcequil]

Öncelikle ilginize Teşekkür ederim.

Office 2016 geçince profilden office düzeltmiştim fakat izmayı düzeltebileceğim yeri bulamadığım için öyle kaldı. Profil kısmında imzaya müdahale edememiştim.

kullandığım makro ise

Dim w, x, xa, value1, isim, adad

Sub pdf_isimli()
pdf2
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
    "\\ CERTIFICATE LINK\25  SICAKLIK KUVVET\" + isim + ".pdf" _
    , Quality:=xlQualityStandard, IncludeDocProperties:=False, _
    IgnorePrintAreas:=False, OpenAfterPublish:=False
    ActiveWorkbook.Save
    ActiveWorkbook.Close
End Sub
 
Sub pdf2()
    isim = ActiveWorkbook.Name
    isim = Trim(isim)
    isim = (Left(isim, Application.WorksheetFunction.Search(".", isim) - 1))
    w = "EQUIPMENT"
    On Error Resume Next
    x = Range("A1:Ak16").Find(w).Value
    xa = Range("A1:Ak16").Find(w).Address
    x = Trim(x)
    value1 = (Right(x, Len(x) - Application.WorksheetFunction.Search(":", x)))
    value1 = Trim(value1)
End Sub

 

[parcequil]

İmzayı değiştirdim.

 

[parcequil]

Merhaba.

Öncelikle, KULLANICI PROFİLİ bölümü ile İMZA blokunda kullandığınız Ms.Excel versiyon bilgisinin aynı olmasını sağlayınız.
Sorunuzun cevabı, kullandığınız Ms.Excel versiyonuna göre değişebilir.

Kullandığınız makroyu paylaşırsanız, bu makroya ilave yapılarak istediğiniz husus halledilebilir sanırım.
.

İsteğiniz üzerine makroyu ekledim

 

[Korhan Ayhan]

Aşağıdaki linkte benzer bir konu işlenmiş.

İnceleyiniz.

http://www.excel.web.tr/f48/aly-ma-sayfasyndaki-belirli-sayfalary-pdf-olarak-kaydetmek-t157100.html

 

[parcequil]

Aşağıdaki linkte benzer bir konu işlenmiş.

İnceleyiniz.

http://www.excel.web.tr/f48/aly-ma-sayfasyndaki-belirli-sayfalary-pdf-olarak-kaydetmek-t157100.html

İlginiz için teşekkürler.

Bu konu benim sorunumu pek kapsamıyor.

Çünkü bizim çalıştığımız 1200 civarı excel dosyası var zaman içerisinde de bu dosyalar sürekli artıyor ve periyodik olarak sürekli bu excel dosyalarının verileri değiştirilip PDF çevirerek arşivliyoruz dosya ism yazmam mümkün değil.
Bir excel dosyasında durama göre 1 sayfada olabiliyor 8 sayfada., ama 8 sayfa içerisindeki bazı sayfaların PDF çerilip arşivlenmesi gerekmiyor. Bende sayfa ön izlemeden küçük bir hücreyi yazdırma sayfası seçiyorum ama yinede boş bir PDF sayfası oluşturuyor. İşin içinde binlerce sayfa olunca gereksizler yer tutuyor.

Konu hakkında yardımcı olabilirseniz sevinirim.

 

[Korhan Ayhan]

Örnek dosya ekleyiniz.

Yaptığınız işlemi dosyanız üzerinden tarif ediniz.

 

[parcequil]

Örnek bir excel dosyası yukarıdaki makro ile PDF'e çevrildi.

Sorunum.

- Resim1 ve Resim2 de görüldüğü üzere excel dosyasındaki sayfa 6 ile sayfa 7 nin PDF de görünmesini istemediğim ve boş seçemediğim den dolayı sayfa ön izlemede küçük bir hücreyi seçiyorum. Fakat o küçük hücre için PDF’e çevirdiğimde boş bir PDF sayfası oluşuyor. PDF sayfasında boş sayfanın olmasını hiç istemiyoruz.

- Bu şekilde 1200 civarı sertifikalarımız var. sertifikaları hazırladıktan sonra tek tuşla yazmış makro ile PDF çevirip arşivlemek istiyoruz.

- Resim 1 ve Resim 2 görülen sayfa önizlemeyi tamamen kaldırabilir miyim? Excelde böyle bir olay var mı?

 

[parcequil]

Örnek dosya ekleyiniz.

Yaptığınız işlemi dosyanız üzerinden tarif ediniz.

İsteğiniz üzerine dosyaları ekledim

 

[parcequil]

Basitce print preview (sayfa önizleme)'yi hiç hücreyi seçmeden boş bırakabiliyor muyuz? sorum bu

 

[parcequil]

Soruma cevap alamadığım için vazgeçiyorum. SORU İPTAL

Soruma cevap alamadığım için vazgeçiyorum. SORU İPTAL