AccessTr.neT

Tam Versiyon: excel dosyasını yazdırma hakkında
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
access 2003 te yapmıs oldugum vardıya defterı kayıt programında makine park numarası seçilerek acıklama yazılmıs bir formum var bu formda aylık bakımı yapıldı ,haftalık bakımı yapıldı , 3 aylık bakımı yapıldı seceneklerı mevcut.check box olarak bu kutucukların herhangi biri işaretlendiğinde excelde hazırlanmıs olan bakım föyünü yazdırmak ıstıyor musunuz ?sorusu ve evet cevabı verıldıgınde mevcut formun yazdırılmasını ıstıyorum mumkun mudur ?

denden.rar
mumkun degıl sanırım
forumda bılgı veren bır yer varsa bılen bır arkadasımız lnkı atar ıse sevınırım
Hafta için;
hafta onay kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu ekle

 Dim stDocName As String
Dim MyForm As Form
Dim mesaj As Integer

If Me.hafta = "-1" Then

mesaj = MsgBox("excelde hazırlanmıs olan bakım föyünü yazdırmak ıstıyor musunuz ?", vbYesNo)
If mesaj = vbYes Then
stDocName = "vardefteri"
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False
End If
End If

İstediğiniz bu ise tabi.
dosya yolunu belırtmem gerekmeyecek mı ??
(15/03/2012, 21:39)disa2006 yazdı: [ -> ]dosya yolunu belırtmem gerekmeyecek mı ??

"mevcut formun yazdırılmasını ıstıyorum" diye yazdığınız için mevcut formu yani "vardefteri" formunu yazdıracak kod ekledim.

Siz ne yapılmasını istiyorsunuz ?

Sayfalar: 1 2