[Yardım]  Verileri 50 şer satır yazıcıya yazdırabilirmiyiz.

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

Verileri 50 şer satır yazıcıya yazdırabilirmiyiz.

İleti#1)  tergan » 12 Şub 2019 16:02

Merhaba

Ekte gönderdiğim dosyamdaki listemi yazıcıya başlıklar her sayfada çıkacak şekilde VBA ile 50 şer satır yazdırabilmek mümkün mü acaba.
İlk satırdaki başlık bazı durumlarda 2 veya 3 satırda olabilmektedir.
Şimdiden Teşekkürler.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
tergan
 
Adı Soyadı:faruk tergan
Kayıt: 05 May 2009 11:12
Konum: ankara
Meslek: bilgisayar
Yaş: 50
İleti: 6
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara/çankaya

Cevap: Verileri 50 şer satır yazıcıya yazdırabilirmiyiz.

İleti#2)  askmadige34 » 12 Şub 2019 19:37

Çıktı adında bir sayfa ekleyin ve aşağıdaki kodları bir modüle yapıştırarak deneyiniz.
Kod: Tümünü seç
Sub ASKM_Cikti_Al()
Set s1 = Worksheets("Ad Soyad Sıralı")
Set s2 = ThisWorkbook.Worksheets("Çıktı")
Dim son As Long
Dim a As Long
Dim t As Integer
son = s1.Range("A" & Rows.Count).End(3).Row
Dim satir As Integer
On Error GoTo 10
satir = InputBox("Lutfen Başlık Satırının adedini giriniz.", "ASKM Soru Ekranı", "Sadece Rakam Giriniz...")
Err.Number = 0
On Error Resume Next
s2.Cells.ClearContents
s1.Range("A1:J" & satir).Copy s2.Range("A1")
a = satir
For i = satir + 1 To son
    a = a + 1
    s1.Range("A" & i & ":J" & i).Copy s2.Cells(a, 1)
    If a = 50 Then
        s2.PageSetup.PrintArea = "A1:J" & a
        s2.PrintPreview
        a = satir
        t = satir + 1
        s2.Range("A" & t & ":j50").ClearContents
    End If
Next i
MsgBox "Yazma işlemi bitti...", vbInformation, "ASKM"
Exit Sub
10:
MsgBox "Sadece rakam girebilirisiniz...", vbInformation, "ASKM"
End Sub
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 11:04
Meslek: memur
Yaş: 38
İleti: 1690
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

Cevap: Verileri 50 şer satır yazıcıya yazdırabilirmiyiz.

İleti#3)  tergan » 14 Şub 2019 14:15

askmadige34 cevabınız için teşekkür ederim.
fakat kodu çalıştırdığımda kod çalışıyor fakat yazıcıdan çıkış alamadım. Kodu modüle kopyaladım ve çalıştırdım. ve tabii ki çıktı sayfası da ekledim. Başka atladığım bir şey olabilir mi acaba.
Kullanıcı avatarı
tergan
 
Adı Soyadı:faruk tergan
Kayıt: 05 May 2009 11:12
Konum: ankara
Meslek: bilgisayar
Yaş: 50
İleti: 6
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara/çankaya

Cevap: Verileri 50 şer satır yazıcıya yazdırabilirmiyiz.

İleti#4)  tergan » 14 Şub 2019 14:23

askmadige34 hatayı buldum çok teşekkür ederim. kişi sayısı 50 den küçükse sayfayı yazdırmıyor. Dolayısı ile kodu
if a = 50 Or a = son Then şeklinde değiştirince sorun çözüldü teşekkür ederim. Kolay Gelsin Ellerinize sağlık.
Kullanıcı avatarı
tergan
 
Adı Soyadı:faruk tergan
Kayıt: 05 May 2009 11:12
Konum: ankara
Meslek: bilgisayar
Yaş: 50
İleti: 6
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara/çankaya

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 3 misafir

Bumerang - Yazarkafe