(04/01/2020, 13:34)ByChilavert yazdı: resimde belirttiğiniz şekilde seçiyorum daha sonra kodu oluşturduğum butona basıyorum. Bütün sayfaları yazdırıyor.

daha önce de aynı şeyi söylemiştiniz ama bu bir cevap değil.
dosyanızın son hali ile yazdırdığınız pdf dosyasını ekleyip
"şunlar şunlar olmasın, şunlar şunlar olsun" diye daha ayrıntılı bir açıklama yapar mısınız?

Merhaba Örnek dosya aşağıdadır.

100 den fazla sütün ve satır var sadece seçim yaptığım alanları yazdırmasını istiyorum.Örnek 5 Sütun 10 Satır seçtim sadece bu alanı yazdırsın.

https://drive.google.com/open?id=18U25KH...stlOcE_fXR

(06/12/2019, 14:00)ByChilavert yazdı: Excel'de yan yana (Adı Soyadı Görevi Birimi İşe Giriş Tarihi İl İlçe Köy Adres) v.s. sütunlar var. Bunlardan örnek (Adı Soyadı Görevi Birimi İşe Giriş Tarihi) alanlarını seçip fast report aracılığı ile yazdırmak istiyorum.

iyi de ilk mesajınızda sütun başlıklarından bahsetmişsiniz ben de kodu ona göre yazdım: seçtiğiniz sütunları, ilk sütundaki son satıra kadar, yazıcıya gönderiyor. Eger "sadece seçtiğim hücreleri yazdırsın " deseydiniz kodu ona göre yazardık

(04/01/2020, 14:11)berduş yazdı:

(06/12/2019, 14:00)ByChilavert yazdı: Excel'de yan yana (Adı Soyadı Görevi Birimi İşe Giriş Tarihi İl İlçe Köy Adres) v.s. sütunlar var. Bunlardan örnek (Adı Soyadı Görevi Birimi İşe Giriş Tarihi) alanlarını seçip fast report aracılığı ile yazdırmak istiyorum.

iyi de ilk mesajınızda sütun başlıklarından bahsetmişsiniz ben de kodu ona göre yazdım: seçtiğiniz sütunları, ilk sütundaki son satıra kadar, yazıcıya gönderiyor. Eger "sadece seçtiğim hücreleri yazdırsın " deseydiniz kodu ona göre yazardık

(Adı Soyadı Görevi Birimi İşe Giriş Tarihi) sütunlarına bağlı satırlarla birlikte seçim tek satırda olabilir çok satırda olabilir önemli olan seçtiklerimi yazdırabilirmek.

daha önce sorduğunuz bir soruda da aynı sorunu yaşamıştık
yazdığınız mesaja göre çözüm üretmiştik ama sonunda söylediğinizin tam tersini istediğiniz anlaşılmıştı.
(Bu sorunuzda: https://accesstr.net/konu-ado-ile-kapali...#pid159977 )
soruları çözmek için dünya kadar zaman ve emek harcıyoruz sonra bir bakıyoruz tüm emekler çöpe gitmiş, çünkü söylenen şeyle istenen şey bambaşka imiş
kodu aşağıdaki ile değiştirip deneyebilirsiniz.

Dim Secili As Range

Dim xSht As Sheets

Dim TxtAdrs() As String

Set Secili = Selection

Dim Hucr As Range

Dim SeciliRng As String



xScreenUpdate = Application.ScreenUpdating

xAlert = Application.DisplayAlerts

Application.ScreenUpdating = False

Application.DisplayAlerts = False



Sheets.Add.Name = "GccSil"



Secili.Copy Sheets("GccSil").Range("A1")

Sheets("GccSil").PrintOut

Sheets("GccSil").Delete



Application.ScreenUpdating = xScreenUpdate

Application.DisplayAlerts = xAlert

Teşekkür Ederim Tam istediğim gibi olmuş.