[Yardım]  Yazdır Komutu

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

Yazdır Komutu

İleti#1)  nomeric » 18 Kas 2020 13:59

Merhaba Hocalarım,

Personeller için sokağa çıkma yasağında görevlendirme yazısı ile çalışma izni veriliyor.

Bunun için çalışan tüm personeller için tek tek GÖREVLENDİRME BELGESİ vermem lazım. Listedeki tüm personelleri tek bir yazdır komutu ile yazdırma ihtimali var mı.

Açıklama detayı örnek çalışma içerisindedir.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
nomeric
Yeni Başlamış
 
Kayıt: 01 Ekm 2020 12:20
Meslek: İşletme Müdürü
Yaş: 29
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Gaziantep

Cevap: Yazdır Komutu

İleti#2)  işsiz123 » 18 Kas 2020 18:59

Merhabalar
Aşağıdaki örneği inceleyebilirsiniz.
https://excel-studio.blogspot.com/2019/06/pratik-word-belge-doldur.html
Kullanıcı avatarı
işsiz123
Siteye Alışmış
 
Adı Soyadı:Mehmet Emin ALKAN
Kayıt: 16 Kas 2016 15:45
Meslek: YAPI DENETİM
Yaş: 27
İleti: 356
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mardin/Midyat

Cevap: Yazdır Komutu

İleti#3)  okutkan » 18 Kas 2020 19:09

Toplam kaç personeliniz var?
Kullanıcı avatarı
okutkan
Siteye Alışmış
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 28
İleti: 105
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: Yazdır Komutu

İleti#4)  okutkan » 18 Kas 2020 20:03

Görevlendirme sayfasındaki yazdırma alanını, 'Sayfa düzeni' > 'Yazdırma alanı' bölümünden ayarlayın.
Görevlendirme sayfasındaki n10 hücresine personel sayınızı yazın. (Vba kodundan kendinize göre düzenleyin)
Kodun çalışıp çalışmadığını görmeniz için, çok sayıda çıktı almadan önce 2-3 kişilik çıktı almayı deneyin.

Kod: Tümünü seç
Private Sub CommandButton1_Click()
deger = ThisWorkbook.Sheets("Görevlendirme Belgesi").Range("n10").Value


   Sheets("Personel Bilgileri").Select
    Sheets("Personel Bilgileri").Range("a1").Select
   
For i = 1 To deger
   
    Sheets("Personel Bilgileri").Select
        ActiveCell.Offset(1, 0).Range("A1").Select
            Selection.Copy
    Sheets("Görevlendirme Belgesi").Select
        Sheets("Görevlendirme Belgesi").Range("d9").Select
            ActiveSheet.Paste
ThisWorkbook.Sheets("Görevlendirme Belgesi").PrintOut copies:=1

Next i
End Sub
Kullanıcı avatarı
okutkan
Siteye Alışmış
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 28
İleti: 105
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

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

Cevap: Cevap: Yazdır Komutu

İleti#5)  nomeric » 19 Kas 2020 07:40

okutkan yazdı:Görevlendirme sayfasındaki yazdırma alanını, 'Sayfa düzeni' > 'Yazdırma alanı' bölümünden ayarlayın.
Görevlendirme sayfasındaki n10 hücresine personel sayınızı yazın. (Vba kodundan kendinize göre düzenleyin)
Kodun çalışıp çalışmadığını görmeniz için, çok sayıda çıktı almadan önce 2-3 kişilik çıktı almayı deneyin.

Kod: Tümünü seç
Private Sub CommandButton1_Click()
deger = ThisWorkbook.Sheets("Görevlendirme Belgesi").Range("n10").Value


   Sheets("Personel Bilgileri").Select
    Sheets("Personel Bilgileri").Range("a1").Select
   
For i = 1 To deger
   
    Sheets("Personel Bilgileri").Select
        ActiveCell.Offset(1, 0).Range("A1").Select
            Selection.Copy
    Sheets("Görevlendirme Belgesi").Select
        Sheets("Görevlendirme Belgesi").Range("d9").Select
            ActiveSheet.Paste
ThisWorkbook.Sheets("Görevlendirme Belgesi").PrintOut copies:=1

Next i
End Sub

Hocam Harika Olmuş Ellerinize Sağlık Çok Teşekkür Ederim şkşk [oley] :D [TESEKKÜR]
Kullanıcı avatarı
nomeric
Yeni Başlamış
 
Kayıt: 01 Ekm 2020 12:20
Meslek: İşletme Müdürü
Yaş: 29
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Gaziantep


Forum Genel Makro Soruları

Online Kullanıcılar

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

Bumerang - Yazarkafe