AccessTr.neT

Bul · 12/04/2011, 15:44

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

Bul · 12/04/2011, 17:43

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

Bul · 13/04/2011, 15:41

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

Bul · 13/04/2011, 15:49

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

Teşekkürler.

Bul · 13/04/2011, 16:02

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

Bul · 13/04/2011, 17:42

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

AccessTr.neT

Alt Form Yazdırma

Alt Form Yazdırma

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri