AccessTr.neT
Alt Form Yazdırma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Alt Form Yazdırma (/konu-alt-form-yazdirma.html)

Sayfalar: 1 2


Alt Form Yazdırma - zihniates - 12/04/2011

Merhaba,

Bir form içerisinde yer alan ALT FORM'u yazdırmanın yöntemi nedir? Ben ALT FORM'a yazdır butonu ekledim, yazdır diyince hem ANA FORM'u hem ALT FORM'u yazdırıyor. Ben sadece ALT FORM'u yazdırsın istiyorum.

Bu kodu nasıl düzenlemeliyim?

Private Sub Komut72_Click()
On Error GoTo Err_Komut72_Click


DoCmd.PrintOut

Exit_Komut72_Click:
Exit Sub

Err_Komut72_Click:
MsgBox Err.Description
Resume Exit_Komut72_Click

End Sub
Private Sub Komut73_Click()
On Error GoTo Err_Komut73_Click


DoCmd.PrintOut

Exit_Komut73_Click:
Exit Sub

Err_Komut73_Click:
MsgBox Err.Description
Resume Exit_Komut73_Click

End Sub



Cvp: Alt Form Yazdırma - emturker - 12/04/2011

Sn.zihniates
Dim stDocName As String
Dim MyForm As Form

stDocName = "alt_form"
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False



Cvp: Alt Form Yazdırma - zihniates - 13/04/2011

teşekkür ederim, şimdi deneyeceğim.


Cvp: Alt Form Yazdırma - zihniates - 13/04/2011

Denedim fakat beceremedim kodu nerede kullanmam gerekiyor? Buton'da mı yoksa başka bir yerde mi?

Teşekkürler.


Cvp: Alt Form Yazdırma - alpeki99 - 13/04/2011

Kodu birebir aynı yazmadınız değil mi?


Cvp: Alt Form Yazdırma - emturker - 13/04/2011

(13/04/2011, 15:49)zihniates yazdı: Denedim fakat beceremedim kodu nerede kullanmam gerekiyor? Buton'da mı yoksa başka bir yerde mi?

Teşekkürler.

stDocName = "alt_form"
Yazan Kısma Kendi Alt Formunuzun Adını Yazmamış Olabilirsiniz.