Uygulamanın sayfa yapısı hakkında yardım
Tarih
03/08/2012 14:01
Konu Sahibi
QATLET
Yorumlar
4
Okunma
1378
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



QATLET
sevelim & sevilelim
Kullanici Avatari
Aktif Üye
Z....
113
02/02/2012
20
Eskişehir
Ofis 2013 64 Bit
20/01/2017,19:31
Çözüldü 
Sponsor Reklam
Merhabalar;

resim

Bir Access uygulamasının sayfa yapısını ( kenar boşlukları " tümü 10"- sayfa boyutu " A4"- dikey / yatay "dikey") düzenleyebileceğim bir kod varmıdır ?

iyi günler.
Cevapla

Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.544
7
30/10/2008
804
Tekirdağ
Ofis XP
Çözüldü 
Araçlar - Seçenekler - Genel sekmesine bakın. Orada Kenar Boşluklarını varsayılan olarak ayarlayabilirsiniz. (Orada birim cm olabilir, sayfa yapısında mm'dir, dikkat edin)
Sayfa boyutu (A4) kısmı kullandığınız yazıcı ve onun ayarları ile ilgili olması lazım.
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla

QATLET
sevelim & sevilelim
Kullanici Avatari
Aktif Üye
Z....
113
02/02/2012
20
Eskişehir
Ofis 2013 64 Bit
20/01/2017,19:31
Çözüldü 
Sponsor Reklam
Bu işlemi bahsettiğiniz şekilde değilde kod yazarak yapabilmemiz mümkün değilmi.
Cevapla

Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.544
7
30/10/2008
804
Tekirdağ
Ofis XP
Çözüldü 
Bu kodlar Access'in Araçlar-Seçenekler menüsündeki Marginlerin kodu:

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
'Print margins, Left margin
Application.SetOption "Left Margin", "1cm"

'Print margins, Right margin
Application.SetOption "Right Margin", "1cm"

'Print margins, Top margin
Application.SetOption "Top Margin", "1cm"

'Print margins, Bottom margin
Application.SetOption "Bottom Margin", "1cm"




Bu kodlar sadece istenilen rapor için geçerli.

Visual Basic Code
1
2
3
4
5
6
7
8
9
Private Sub Report_Open(Cancel As Integer)
    
    Me.Printer.PaperSize = acPRPSA4  'A4 kağıt boyutu
    Me.Printer.BottomMargin = 10
    Me.Printer.TopMargin = 10
    Me.Printer.LeftMargin = 10
    Me.Printer.RightMargin = 10

End Sub


Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla

QATLET
sevelim & sevilelim
Kullanici Avatari
Aktif Üye
Z....
113
02/02/2012
20
Eskişehir
Ofis 2013 64 Bit
20/01/2017,19:31
Çözüldü 
Sponsor Reklam
Çok teşekkürler. Bu kodlar işimi gördü.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  toplu ekleme hakkında. hbal09 7 295 16/01/2017, 08:27 hbal09
  YARDIM EDER MİSİNİZ Halil Çal 1 85 04/01/2017, 12:55 ozguryasin
  Yapılan işi stoktan düşürme hakkında Gezente Çift 2 143 31/12/2016, 13:36 Gezente Çift
  Güncelle sorgusu hakkında nightashes 5 168 22/12/2016, 00:51 nightashes
  On Error - Hata denetimi hakkında. nightashes 16 486 18/12/2016, 18:12 nightashes


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya