Yazdırma Alanı Belirleme, Print Area

 

VBa ile Yazdırma Alanı (Print Area) Belirlemek icin asagidaki kodlari kullanabilirsiniz; Bu konu genel acilmistir, yazdirma alani ve yazdirma konularinda bu baslik altindan sorularinizi sorabilirsiniz..

With ActiveSheet
    .PageSetup.PrintArea = "$A$1:$A$10"
End With

Araligi ayrica yazdirma isterseniz ve kopya sayisi ile ilgili islem yapmak isterseniz asagidaki doslarida with ifadesi icerisine ekleyiniz;

.PrintOut Copies:=1

 

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

“Yazdırma Alanı Belirleme, Print Area” için 7 yorum

  1. Merhaba yazılarınızı dikkatle takip ediyorum gerçekten harikulade bir anlatım sergiliyorsunuz. Size izninizle bir soru sormak isterim

    .PageSetup.PrintArea = dan sonra inputbox açtırabilirmiyiz. Açtırabilirsek nasıl. Aslında amacım tam olarak o butona tıklayınca benden hücreleri seçmemi istemesi. Acelem yok sadece öğrenmek istediğim için soruyorum. Teşekkürler. Çalışmalarınızın devamını dilerim

    1. araligi yazmak istiyorsaniz;

      Sub area()
      Dim Kullanici_Datasi As String
      Kullanici_Datasi = InputBox(“:::InputBox:::”, _
      “Input_Basligi”, “Girmek Istediginiz Veriyi Giriniz..”)
      If Kullanici_Datasi = “Girmek Istediginiz Veriyi Giriniz..” Or _
      Kullanici_Datasi = “” Then
      Exit Sub
      Else
      With ActiveSheet
      .PageSetup.PrintArea = Kullanici_Datasi
      End With
      End If
      End Sub

      seklinde bir prosedur calistirabilirsiniz, input icerisine “” isareti kullanmadan ornegin $A$1:$A$10 seklinde verinizi girmelisiniz, inputbox zaten metin oldugunu anlayacaktir.

  2. Yanlış yaptım sanırım. Bir buton resmi ekledim makro ata dedim. adını areas yaptım kodu yapıştırdım. Syntax error dedi. Sonrada resimdeki gibi hatayı gösterdi. Yanlış yere mi yazdım acaba. Kusura bakmayın. http://i.imm.io/XF7D.jpeg

  3. Merhaba.
    Yazdırma alanını nasıl dinamik yapabiliriz, baya uğraştım olmadı.
    Excel de hazırladığım ve kenarlık çizgileri ile biçimlendirilmiş tabloya başka bir sayfadan veri aktarımı yaparak döküm alıyorum, Satır sayıları her defasında farklı oluyor.
    Bu tablo üzerinde dolu satırları içine alan yazdırma alanını nasıl oluşturabiliriz.
    Dolu satırsarı içine alan bir kod buldum ancak, tablo biçimlendirilmemiş ise çalışıyor, biçimlendirme çizgileri olunca sonuç vermiyor, sanırım dolu olarak kabul ediyor.
    İlgilerinizi bekler, çalışmalarınızda başarılar dilerim.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


9 + 5 =