Alt Form Yazdırma

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

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

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

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

Teşekkürler.

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

(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.