AccessTr.neT

Sayfalar: 1 2 3 4 5

Çok teşekkürler hocam elleriniz sağlık tam istediğim gibi olmuş. Daha önceki dosyama uygulayamadım.
eklediğiniz kodu aşağıdaki kodlara nasıl uygulamam gerekiyor

DoCmd.OpenReport "tbl_kisiler", acPreview

Kod:
Private Sub Komut33_Click()

'Yacıyı seç başı

Dim strDefaultPrinter  As String

 ' Geçerli Yazıcı

strDefaultPrinter = Application.Printer.DeviceName

 ' Fatura Yazıcısı Tanımla

Set Application.Printer = Application.Printers("Microsoft XPS Document Writer")

'Yacıyı seç sonu

'ATOZ:

'YAZDIRMA İÇİN MESAJ BİLDİRİMİ

'SetProp "AllowShortcutMenus", dbBoolean, False 'Kısayol menusu aktifleştirme

    'EĞER FaturaID BOŞSA,KAYIT SEÇİMİNİN YAPILMASI İÇİN

    If Me.FaturaID = "" Or IsNull(Me.FaturaID) Then

    MsgBox ("Lütfen FATURA işlemi için kayıt seçiniz"), vbCritical, "KAYIT SEÇME UYARISI"

    Me.Undo

    Exit Sub

    End If

   'EĞER ALT FORMDAKİ Toplam ve Yekun DENETİMLERİ BOŞSA,KAYDETME İPTALİ İÇİN

    If IsNull(Forms![FaturaGiris]![FaturaDetay].Form![Toplam]) Or Forms![FaturaGiris]![FaturaDetay].Form![Toplam] = "" Or IsNull(Forms![FaturaGiris]![FaturaDetay].Form![Yekun]) Or Forms![FaturaGiris]![FaturaDetay].Form![Yekun] = "" Then

    MsgBox ("Alt formdaki" & vbCr & vbCr & "Toplam" & vbCr & "Yekun" & vbCr & vbCr & "denetimleri BOŞ olduğu için" & vbCr & "KAYIT İŞLEMİ İPTAL EDİLMİŞTİR."), vbCritical, "KAYDETME İPTAL BİLGİLENDİRMESİ"

    Cancel = True

    DoCmd.SetWarnings False

    DoCmd.RunCommand acCmdUndo

    DoCmd.SetWarnings True

    Exit Sub

    Else

    DoCmd.OpenReport "FaturaDokum", acPreview

    Set Application.Printer = Application.Printers(strDefaultPrinter) 'Varsayılan Yazıcıya Geri Dön...

    End If

End Sub

sayın kenan827,

eklediğiniz kodlar bu konunuzdaki örnek üzerinden gidilecek olursa farklı nitelikte görünüyor.

bu kodlar ile yapmak istediğiniz nedir?

tek bir olay yordamı içerisinde

1) raporu açıp
2) yazıcıyı seçip
3) tek sayfa baskı almak mı istiyorsunuz?

çünkü;bu konunuzda talebiniz;raporu açtıktan sonra ayrı bir form üzerinde yazıcı seçip sonrasında çıktı almak.

son olarak,bu eklediğiniz kodları içeren örneği görmek gerekmektedir.çünkü;düzenlemeyi, ona göre yapmak lazım,eğer ki tüm işlemi tek bir olayda halletmek istiyorsanız.

kaldı ki,fark ettiyseniz;yazıcı seçme formu,raporun AÇILDIĞINDA olay yordamına yazılmıştır.

aslında,buradaki örnekten hareketle,asıl uygulamanıza adapte edebilirsiniz,benzer işlemleri sağlamak sureti ile.

bilginize...iyi çalışmalar,saygılar.

Hocam Ayni kodları aşağıdaki programa eklerseniz sevinirim. Saygılar.

sayın kenan827,

EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

NOT
denemesini yapma imkanım olmadığı için,ancak siz denedikten sonra bilgilendiriniz.

bilginize...iyi çalışmalar,saygılar.

Hocam çok, çok teşekkürler ellerinize sağlık tam istediğim gibi oldu. Hocam YaziciSeç Formunu tasarım olarak küçültüyorum açıldığı zaman tekrar büyük olarak açılıyor. Nereden kaynaklandığını çözemedim.

sayın kenan827,

bahsettiğiniz formun GEÇERLİ OLDUĞUNDA olay yordamına formun genişliği ve yüksekliğini belirlemeye dair AraBoyutlandıRTEX adlı makro eklemişsiniz.bu makroyu iptal edebilirsiniz.

bilginize...iyi çalışmalar,saygılar.

Sayfalar: 1 2 3 4 5

kenan827

atoz112

kenan827

atoz112

kenan827

atoz112