Arkadaşlar eklediğim dosyada şöyle bir yazdırma işlemini yapmak istiyorum. Yardımcı olabilir misiniz?
* Frm_anaformdan işi seçip (örneğin 9-c) raporlar sayfasına ulaşınca frm_raporlar formunda açılan kutu ya da liste kutusunda o çalışmadaki tüm kişiler için "rpr_stajdosyasi2" raporunu önlü arkalı, "rpr_stajdosyasi8" raporunu tek yüz yazıcıya nasıl gönderebilirim?
Ayrıca "rpr_stajdosyasi8" raporunda baskı önizle yazdı komutunda müdür ve müdür yardımcısı ismi çıkarken direk yazıcıya gönderdiğimde isimler gelmiyor?
Raporda Toplu Yazdırma
If IsNull(acogr) Or Me.acogr = "" Then
MsgBox "Lütfen form çıktısı alacağınız öğrenciyi seçiniz", vbCritical, "Öğrenci Seçim Uyarısı"
acogr.SetFocus
Else
Dim strReportName As String
strReportName = "rpr_stajdosyasi2"
DoCmd.OpenReport strReportName, acViewNormal
' Yazıcı ayarlarını belirleme
DoCmd.PrintOut PrintRange:=acPages, PrintQuality:=acHigh, Copies:=1, Collate:=True, PrintOrientation:=acPRORPortrait, Color:=acPRCMMonochrome, PrintDuplex:=acPRDPVertical
DoCmd.Close acReport, strReportName
End If
Önlü arkalı yazdırmak için kodunuza printer ayarlarını eklemeniz gerekir. Burada PrintRange: basılacak sayfa aralığı
PrintQuality: baskı kalitesini
Copies: kaç kopya basılacağını
Collate: kopyaların basım sırasını (true ise her kopya için önce tüm sayfaları basar sonra diğer kopyaya geçer, false ise her sayfayı kopya sayısı kadar basarak ilerler)
PrintOrientation: Baskının yönünü belirler (acPRORPortrait dikey, acPRORLandscape yatay baskı almanızı sağlar)
Color: baskının siyah/beyaz veya renkli olmasını sağlar (acPRCMMonochrome siyah/beyaz, acPRCMColor renkli baskı verir)
PrintDuplex: Baskının önlü arkalı olmasını ayarlar ( acPRDPVertical baskıyı dikey, acPRDPHorizontal yatay olarak önlü arkalı almanızı sağlar)
Sayın atokyan. Öncelikle teşekkürler. İş yerine gidince kodları deneme şansım olacak. Lakin kodlarda ben bir hususu anlamadım. Ben listedeki tüm öğrencileri yazdıracağım. Diyelim 10 kişi var, tek tuşa basarak öğrencilerin çıktılarını almak istiyorum. Sanki bu kodda diğer ayarlar yapılmış ama tüm kişileri yazdırma yok gibi?
Raporlamayı, rapor filtrelemeyi, sorgulamayı, sorguyu filtrelemeyi veya sorguya kriter eklemeyi vs. öğrenmiş olmanız gerek bu zamana kadar ki çalışma ve sorulanrınız ile, o nedenle raporla ilgili herhangi bir detay yok verdiğim kodda. Kod sadece print ayarlarına yönelik. Form üzerinden bir kişi için (örneğin kişi idsi bazında filtrelenerek veya sorgu kriteri olarak kullanılarak) almakta olduğunuz raporun sorgunuza uyan tüm kişileri listeleyecek şekilde düzenlenmesi sorun olmasa gerek diye düşünüyorum. Forma bir buton ekleyip tüm raporlar şeklinde kurgulayabilirsiniz.
Uzun zaman olunca, unutmuşum çözemedim maalesef.
Private Sub Komut95_Click()
On Error GoTo Err_Komut12_Click
Dim x As Integer
Dim stDocName As String
For x = 0 To Me.lsttm.ListCount - 1
Me.lsttm.Selected(x) = True ' Listbox satırı seçili hale getirir
If Me.lsttm.ItemsSelected.Count = 0 Then
MsgBox ("Yazdırmak için seçili kişi yok")
Exit Sub
Else
stDocName = "rpr_stajdosyasi2"
DoCmd.OpenReport stDocName, acNormal
End If
Me.lsttm.Selected(x) = False ' Listbox satır seçimini kaldırır
Next x
Exit_Komut12_Click:
Exit Sub
Err_Komut12_Click:
MsgBox Err.Description
Resume Exit_Komut12_Click
End Sub
şeklindeki kod listboxınızda öğrencileri sırası ile seçer raporunu yazdırır. Komut95 adlı buton yordamına komut12 diye error handler eklemek de çok mantıklı değil. Bu kadar düzensiz çalışma sonunda kargaşaya ve içinden çıkmadığınız sorunlara sebep olur.
Konuyu Okuyanlar: 1 Ziyaretçi