Rapor sayfalarında ayrı ayrı çıktı almak

[aksoyahmet1]

2 sayfalık rapor çıktısının 1.sayfasını 3 kopya 2. sayfasını 2. kopya almak için
ne yapmak lazım yardımcı olursanız sevinirim.

 

[modalı]

Sayın aksoyahmet1,

Şu şekilşde olabilir. Denemedim.

Dim stDocName As String
     Dim intCounter As Integer
  
    stDocName = "raporAdi"
    
    intCounter = 0
    Do
    intCounter = intCounter + 1
    DoCmd.OpenReport stDocName, acPreview
    Loop Until intCounter = 6
    
    DoCmd.PrintOut acPages, 1, 1, , 3
    DoCmd.PrintOut acPages, 2, 2, , 2
    DoCmd.Close acReport, strDocName

Zamanında vakit kazanabilmek için counter ı 6 kere çevirmişim, iki basım arasındada öyle bir şeye ihtiyaç duyulabilir.

İyi çalışmalar