(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?
(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
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ş.