AccessTr.neT

Tam Versiyon: Rapor ve Form sayfasının üstüste açılması
Ş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 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