Toplu Form Yazdırma

[werem]

Arkadaşlar merhaba,
forum sayesinde baya baya bir şeyler başarmaya başladım. çok çok çok teşekkürlerimi sunuyorum. Formumun bitmesine son aşama kaldı. Bunu nasıl çözeceğim ve/veya nasıl bir yol izleyeceğimi bilemiyorum. Yardımınıza ihtiyacım var.

Dosyayı İndir : https://dosya.co/5nb1sbc9cx4p/Dosya.xlsm.html


VAR OLANLAR;
1-İki sayfalı bir çalışma dosyam var.
2-Data sayfasında verilerim diğer sayfada hazır şablon formum var.
3-Sıra No (kırmızı ile işaretli) bu kısımda data sayfasından liste çekmektedir.
4-Hazır şablon Formumuzdaki bir çok alan DÜŞEYARA ile SıraNo ve Data sayfasına bağlıdır.
5-Sıra no seçilerek ekrana gelen form verilerini [YAZDIR] butonuna basarak tek bir sayfa halinde yazdırabiliyorum.**

İSTENEN;
6-[TÜMÜNÜ YAZDIR] butonuna bastığımızda, DATA sayfasındaki tüm verileri forma uygun şekilde toplu yazdırmalıyız.

Örnek Ekran;

 

[YUSUF44]

Aşağıdaki kodu deneyin:

Sub Düğme4_Tıkla()
    Set s1 = Sheets("FATURALAR")
    Set s2 = Sheets("DATA")
    son = s2.Cells(Rows.Count, "B").End(3).Row
    For i = 2 To son
        If s2.Cells(i, "B") <> "" Then
            s1.[C5] = s2.Cells(i, "A")
            Dim Yazıcı As String
            Yazıcı = Application.Dialogs(xlDialogPrinterSetup).Show
            If Yazıcı = False Then Exit Sub
            Sheets("FATURALAR").PrintOut From:=1, to:=1, Copies:=1, Collate:=True
        End If
    Next
End Sub

 

[werem]

Dosyayı İndir : https://dosya.co/5nb1sbc9cx4p/Dosya.xlsm.html

yazımda paylaşmıştım, gözden kaçmış sanırım.

 

[YUSUF44]

Dosyayı İndir : https://dosya.co/5nb1sbc9cx4p/Dosya.xlsm.html

yazımda paylaşmıştım, gözden kaçmış sanırım.

Ben dosyanıza bakarak kodu vermiştim zaten. Sanıyorum siz imzamdaki ifadelere takıldınız, onlar size yönelik değil, genel; her mesajımda çıkıyor.

 

[werem]

Çok teşekkür ediyorum, süpersiniz. Altın Üyeliği alacağım inşallah.

 

[cems]

Sheets("FATURALAR").PrintOut From:=1, to:=1, Copies:=1, Collate:=True

Sayın @YUSUF44

Bir aralıkta basma amacı ile başlama ve bitiş sayı veya numaralarını ya da tarih aralığını inbox ile vermek için Sayın @werem için hazırladığınız koda nasıl bir ekleme ya da değişiklik yapmak gerekir ?

 

[Mahmut Bayram]

Bu şekilde dener misiniz?

Sub Düğme4_Tıkla()
    Set s1 = Sheets("FATURALAR")
    Set s2 = Sheets("DATA")
    son = s2.Cells(Rows.Count, "B").End(3).Row
    For i = 2 To son
        If s2.Cells(i, "B") <> "" Then
            s1.[C5] = s2.Cells(i, "A")
  
   Dim Yazıcı As String
       Yazıcı = Application.Dialogs(xlDialogPrinterSetup).Show
   If Yazıcı = False Then
       Else
     msg1 = InputBox("Başlama sayfası")
     msg2 = InputBox("Bitiş sayfası")
     msg3 = InputBox("Kopya sayısı")
    
    Sheets("FATURALAR").PrintOut From:=msg1, To:=msg2, Copies:=msg3, Collate:=True
    End If
End Sub

 

[cems]

Sayın Mahmut Bayram

Sayın @werem için Sayın @YUSUF44 'ün vermiş olduğu kodlar benim de bir konumu çözmeme yardımcı oldu.

Belli aralıkta basım için sizin verdiğiniz öneri kodlarınız için çok teşekkür ederim .Henüz asıl bilgisayarımın başında değilim , ancak ulaşınca deneyerek size geri bildirim vereceğim. Kodları okuduğum kadarı ile mantıklı ve çalışacaktır, denemede sorun çıkarmayacak gibi .

 

[werem]

Bu şekilde dener misiniz?

Sub Düğme4_Tıkla()
    Set s1 = Sheets("FATURALAR")
    Set s2 = Sheets("DATA")
    son = s2.Cells(Rows.Count, "B").End(3).Row
    For i = 2 To son
        If s2.Cells(i, "B") <> "" Then
            s1.[C5] = s2.Cells(i, "A")
 
   Dim Yazıcı As String
       Yazıcı = Application.Dialogs(xlDialogPrinterSetup).Show
   If Yazıcı = False Then
       Else
     msg1 = InputBox("Başlama sayfası")
     msg2 = InputBox("Bitiş sayfası")
     msg3 = InputBox("Kopya sayısı")
   
    Sheets("FATURALAR").PrintOut From:=msg1, To:=msg2, Copies:=msg3, Collate:=True
    End If
End Sub

ÜSTAT Toplu çıktı almak istediğimde 1 tane veriyor. çözemedim bir türlü

 

[Mahmut Bayram]

Diyelim ki 5 sayfalık excel dosyanız var.

Başlangıç sayfasını sorduğunda 1
Bitiş sayfasını sorduğunda 5
Kopya sayısı 2

yazdınız ve yazdır dediniz diyelim.
Bu 5 sayfalık dosyadan 2 nüsha çıktı alırsınız.