raporda çıktı sayısı

[GKMER]

raporun 3 adet yazdırılmasını komut ile sağlayabilirmiyiz.

 

[omerceri]

Küçük bir üç kağıtla;
Eğer makro ile yazdırıyorsan, makronun aşağıdaki kırmızı renkli satırını kopyalayıp iki kere yapıştır.
Private Sub Komut1_Click()
On Error GoTo Err_Komut1_Click

Dim stDocName As String

stDocName = "Iller"
DoCmd.OpenReport stDocName, acNormal
DoCmd.OpenReport stDocName, acNormal
DoCmd.OpenReport stDocName, acNormal
Exit_Komut1_Click:
Exit Sub

Err_Komut1_Click:
MsgBox Err.Description
Resume Exit_Komut1_Click

End Sub

 

[karaayhan]

DoCmd.OpenReport "Rapor1", acViewPreview, "", "", acNormal
DoCmd.PrintOut acPrintAll, , , acHigh, 3, True

 

[GKMER]

Kullandım ve sorunumu çözdü. Yanıtlar için teşekkür ederim.