13-09-2011, 15:30
(12-09-2011, 21:59)kursunmurat demiş ki: nevgür hocam bu programın çıktı sayısını nasıl belirleyebiliriz ben 4 sayfa basmasını istiyorum mesela fakat yazdır dediğimde direk 1 adet çıktı alıyor. hızlı yazdıra bağlanıyor yardım ederseniz çok sevinirim saygılar...Merhaba, ben size basitçe bir öneride bulunayım;butondaki kodu aşağıdaki gibi değiştirirseniz otomatik olarak 4 kopya alırsınız; dikkat ederseniz yazdır kodunun 4 kez tekrarlandığını göreceksiniz...
Visual Basic
- Private Sub Komut97_Click()
- On Error GoTo Err_Komut97_Click
-
- Dim stDocName As String
-
- stDocName = "FATURA"
- DoCmd.OpenReport stDocName, acNormal
- stDocName = "FATURA"
- DoCmd.OpenReport stDocName, acNormal
- stDocName = "FATURA"
- DoCmd.OpenReport stDocName, acNormal
- stDocName = "FATURA"
- DoCmd.OpenReport stDocName, acNormal
-
- Exit_Komut97_Click:
- Exit Sub
-
- Err_Komut97_Click:
- MsgBox Err.Description
- Resume Exit_Komut97_Click
-
- End Sub
"Amacımız; zorlaştırmak değil, kolaylaştırmak..." Abdullah Uğur



