Excel'de Yazdırma Sorunu

Excel'de Yazdırma Sorunu

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Excel'de Yazdırma Sorunu

İleti#1)  boss2090 » 26 Tem 2011 16:13

Merhaba, Ben bir Excel sayfasini yazdirmak istiyorum ama bir sorunum var. Sayfada iki tana büyük cizelge var. Cizelge'nin büyüklügüne göre ayarlarsam digerleri cok kücük cikiyor.
Bir Excel sayfasi toplamda 4 sayfa yazdiriliyor. Yani bunun 2. ve 3. sayfadaki cizelgelere göre, ilk ve son sayfasini normal nasil yazdira bilirim ayni anda ve bunu nasil kayit edebilirim.
Tesekkürler.
En son Murat OSMA tarafından, 28 Tem 2011 18:26 tarihinde değiştirildi, toplamda 1 değişiklik yapıldı.
Sebep: Başlık düzeltildi. - İlgili başlık altına taşındı...
Kullanıcı avatarı
boss2090
Siteye Alışmış
 
Adı Soyadı: Kaan Demir
Kayıt: 01 Oca 2010 02:49
Konum: Mühendis
Meslek: Insaat Yüksek Mühendisi
Yaş: 38
İleti: 309
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Berlin

Cevap: Excel de yazdirma sorunu!

İleti#2)  Arslanbey » 26 Tem 2011 16:55

Daha hızlı cevap alabilmeniz için örnek ekleyiniz lütfen.
Kullanıcı avatarı
Arslanbey
Site Dostu
 
Adı Soyadı: Süleyman Arslan
Kayıt: 15 Mar 2009 16:23
Konum: sağlık sektöründeyim
Meslek: laboratuvar teknikeriyim
Yaş: 31
İleti: 544
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Yozgat-Sorgun

REKLAM

Cevap: Excel de yazdirma sorunu!

İleti#3)  boss2090 » 26 Tem 2011 17:08

Tamam ekledim.
Excel 2007
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
boss2090
Siteye Alışmış
 
Adı Soyadı: Kaan Demir
Kayıt: 01 Oca 2010 02:49
Konum: Mühendis
Meslek: Insaat Yüksek Mühendisi
Yaş: 38
İleti: 309
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Berlin

Excel'de Yazdirma Kodu

İleti#4)  boss2090 » 27 Tem 2011 09:24

Merhaba Arkadaslar, ben excel de yazdirmak icin asagidaki gibi bir kod buldum. Ama burda bir yanlislik var cünkü F5 dügmesine basinca hemen yazdiriyor. Bunu nasil bir Button'a görevlendirebilir nasil önizleme yapabilir sonrada yazdira bilirim. Kod u nereye yazmam gerek.
Tesekkürler!

Kod: Tümünü seç
Sub YAZDIR()
With ActiveSheet.PageSetup
.PrintArea = "$A$1:$L$38"
.Orientation = xlPortrait
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintOut

With ActiveSheet.PageSetup
.PrintArea = "$A$39:$Q$79"
.Orientation = xlLandscape
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintOut

With ActiveSheet.PageSetup
.PrintArea = "$A$80:$S$109"
.Orientation = xlLandscape
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintOut

With ActiveSheet.PageSetup
.PrintArea = "$A$110:$K$174"
.Orientation = xlPortrait
.Zoom = 100
ActiveWindow.SelectedSheets.PrintOut

End With
End Sub
En son Murat OSMA tarafından, 28 Tem 2011 18:33 tarihinde değiştirildi, toplamda 1 değişiklik yapıldı.
Sebep: Başlık düzeltildi. - Konular birleştirildi...
Kullanıcı avatarı
boss2090
Siteye Alışmış
 
Adı Soyadı: Kaan Demir
Kayıt: 01 Oca 2010 02:49
Konum: Mühendis
Meslek: Insaat Yüksek Mühendisi
Yaş: 38
İleti: 309
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Berlin

Cevap: Excelde yazdirma kodu

İleti#5)  Erhan Yavuz » 27 Tem 2011 16:12

ActiveWindow.SelectedSheets.PrintOut yerine;

ActiveWindow.SelectedSheets.PrintPreview yazarak deneyin. [evet]
☾✭ Türkçemizi tam ve doğru kullanmaktan korkmayalım..
Teşekkür etmek Erdemdir. ECYavuz


OSMANLI OYUNU (1402-1566)
http://www.excelvba.net/viewtopic.php?f=41&t=9984

EXCEL-VBA KOD BANKASI PRO.7.0
http://www.excelvba.net/viewtopic.php?f=38&t=3304
Resim
Kullanıcı avatarı
Erhan Yavuz
Site Forum Yöneticisi
 
Adı Soyadı: Erhan Yavuz
Kayıt: 15 Haz 2008 00:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 55
İleti: 5334
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler

Cevap: Excelde yazdirma kodu

İleti#6)  boss2090 » 27 Tem 2011 17:11

Kod'u dediginiz gibi asagidaki sekilde degistirdim ama garip bir durum oldu. Önizleme sayfa sayfa yapiyor. Hepsini ayni anda yada sirayla göremiyorsunuz. Son sayfa önizlemede iken önizlemeyi kapat a basinca diger sayfa aciliyor. Mesala Pdf olarak yazdirmak isdedim, ilk önce sadece sonsayfayi kaydetti sonra ikinci sayfayi...yani hepsi tek tek oldu.. ne gibi degisiklik yapabilirim.

Kod: Tümünü seç
Sub YAZDIR()
With ActiveSheet.PageSetup
.PrintArea = "$A$1:$L$38"
.Orientation = xlPortrait
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintPreview

With ActiveSheet.PageSetup
.PrintArea = "$A$39:$Q$79"
.Orientation = xlLandscape
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintPreview

With ActiveSheet.PageSetup
.PrintArea = "$A$80:$S$109"
.Orientation = xlLandscape
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintPreview

With ActiveSheet.PageSetup
.PrintArea = "$A$110:$K$174"
.Orientation = xlPortrait
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintPreview

End Sub
Kullanıcı avatarı
boss2090
Siteye Alışmış
 
Adı Soyadı: Kaan Demir
Kayıt: 01 Oca 2010 02:49
Konum: Mühendis
Meslek: Insaat Yüksek Mühendisi
Yaş: 38
İleti: 309
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Berlin

Cevap: Excelde yazdirma kodu

İleti#7)  boss2090 » 28 Tem 2011 12:34

Uzun zamandir bir cevap alamadim. Birisi ilgilenirse cok sevinirim.
Kullanıcı avatarı
boss2090
Siteye Alışmış
 
Adı Soyadı: Kaan Demir
Kayıt: 01 Oca 2010 02:49
Konum: Mühendis
Meslek: Insaat Yüksek Mühendisi
Yaş: 38
İleti: 309
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Berlin

Cevap: Excel'de Yazdırma Sorunu

İleti#8)  Tarkan VURAL » 30 Tem 2011 17:03

Yazdığınız komutta hep ayrı ayrı yerleri yazdırmak istemişsiniz. Excel burada bana kalırsa size göre daha haklı. ;;_) Sizin yapmak istediğiniz şey Seçili ayrı ayrı bölgeleri tek sayfaya yazdırmak ise, önce ayrı bölgelerin verilerini tek bir sayfada toplayın, sonra o tek sayfayı yazdırın.

Kolay gelsin.
ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...

Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı: Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 40
İleti: 23314
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Excel'de Yazdırma Sorunu

İleti#9)  boss2090 » 31 Tem 2011 00:40

Tesekkürler Tarkan bey, dediginiz gibi birsey yapip kod'u asagidaki gibi degistirdim. Ama bu seferde sayfalarin dikey yada olarak ayarlamasini nasil yapacagimi bilmiyorum.
Ya hepsi yatay yada hepsi dikey oluyor. Ben ise sayfa 2 ve 3 'ün yatay olmasini istiyordum.

Kod: Tümünü seç
Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintPreview
Application.Dialogs(xlDialogPrint).Show
With ActiveSheet.PageSetup
.PrintArea = "$A$1:$L$38, $A$39:$Q$79, A$80:$S$109, $A$110:$K$174"
.Orientation = xlLandscape
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub
Kullanıcı avatarı
boss2090
Siteye Alışmış
 
Adı Soyadı: Kaan Demir
Kayıt: 01 Oca 2010 02:49
Konum: Mühendis
Meslek: Insaat Yüksek Mühendisi
Yaş: 38
İleti: 309
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Berlin

Cevap: Excel'de Yazdırma Sorunu

İleti#10)  Tarkan VURAL » 31 Tem 2011 21:48

Bu yazdırdım dediğiniz kodlarla hangi sayfayı yazdırıyorsunuz ?
ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...

Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı: Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 40
İleti: 23314
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Excel'de Yazdırma Sorunu

İleti#11)  boss2090 » 01 Ağu 2011 10:43

Yazdirmak istedigim bu araliklardakiler .PrintArea = "$A$1:$L$38, $A$39:$Q$79, A$80:$S$109, $A$110:$K$174". Sayfa 1 A1:L38 Dikey, Sayfa 2 A39:Q79 Yatay, Sayfa 3 A80:S109 Yatay, Sayfa 4 A110:K174 Dikey olmasi gerek. Ama ben .Orientation = xlLandscape bu sekil yazarsam hepsi yatay oluyor. Ne gibi bir degisiklik yapmam gerek..
Kullanıcı avatarı
boss2090
Siteye Alışmış
 
Adı Soyadı: Kaan Demir
Kayıt: 01 Oca 2010 02:49
Konum: Mühendis
Meslek: Insaat Yüksek Mühendisi
Yaş: 38
İleti: 309
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Berlin

Cevap: Cevap: Excel'de Yazdırma Sorunu

İleti#12)  Hüseyin ÇOBAN » 01 Ağu 2011 12:35

boss2090 yazdı:Yazdirmak istedigim bu araliklardakiler .PrintArea = "$A$1:$L$38, $A$39:$Q$79, A$80:$S$109, $A$110:$K$174". Sayfa 1 A1:L38 Dikey, Sayfa 2 A39:Q79 Yatay, Sayfa 3 A80:S109 Yatay, Sayfa 4 A110:K174 Dikey olmasi gerek. Ama ben .Orientation = xlLandscape bu sekil yazarsam hepsi yatay oluyor. Ne gibi bir degisiklik yapmam gerek..


Merhaba, aşağıdaki kodları deneyiniz.

Kod: Tümünü seç
Private Sub CommandButton1_Click()

    With ActiveSheet.PageSetup
    .PrintArea = "$A$1:$L$38"
    .Orientation = xlPortrait 'dikey
    End With
ActiveWindow.SelectedSheets.PrintOut

    With ActiveSheet.PageSetup
    .PrintArea = "$A$39:$Q$79"
    .Orientation = xlLandscape 'yatay
    End With
ActiveWindow.SelectedSheets.PrintOut

    With ActiveSheet.PageSetup
    .PrintArea = "A$80:$S$109"
    .Orientation = xlLandscape 'yatay
    End With
ActiveWindow.SelectedSheets.PrintOut

    With ActiveSheet.PageSetup
    .PrintArea = "$A$110:$K$174"
    .Orientation = xlPortrait 'dikey
    End With
ActiveWindow.SelectedSheets.PrintOut

End Sub
Kullanıcı avatarı
Hüseyin ÇOBAN
Siteye Alışmış
 
Adı Soyadı: Hüseyin Çoban
Kayıt: 24 Ağu 2010 09:01
Konum: Gezgin
Meslek: Ü.Tğm.
Yaş: 24
İleti: 498
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Denizli

Cevap: Excel'de Yazdırma Sorunu

İleti#13)  boss2090 » 01 Ağu 2011 14:51

Hüseyin bey ilginize tesekkürler ama kod zaten öyleydi. Siz konuyu tamamen incelememissiniz heralde. Ben Kod'un en son geldigi durumda nasil bri degisiklik yaparsam tam isdediklerime ulasabilirim.
Kullanıcı avatarı
boss2090
Siteye Alışmış
 
Adı Soyadı: Kaan Demir
Kayıt: 01 Oca 2010 02:49
Konum: Mühendis
Meslek: Insaat Yüksek Mühendisi
Yaş: 38
İleti: 309
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Berlin


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Yandex[Bot] ve 2 misafir