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.