Uygulamanın sayfa yapısı hakkında yardım
Tarih
03/08/2012 14:01
Konu Sahibi
QATLET
Yorumlar
4
Okunma
1465
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....
122
02/02/2012
20
Eskişehir
Ofis 2013 64 Bit
04/05/2017,10:56
Çözüldü 
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.550
7
30/10/2008
814
Tekirdağ
Ofis XP
Dün,22:33
Çözüldü 
Sponsor Reklam
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....
122
02/02/2012
20
Eskişehir
Ofis 2013 64 Bit
04/05/2017,10:56
Çözüldü 
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.550
7
30/10/2008
814
Tekirdağ
Ofis XP
Dün,22:33
Çözüldü 
Sponsor Reklam
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....
122
02/02/2012
20
Eskişehir
Ofis 2013 64 Bit
04/05/2017,10:56
Çözüldü 
Ç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
Çözüldü Data Type Mismatch Hatası Hakkında alperalper00 8 6.871 20/05/2017, 20:17 ozanakkaya
  Formdan Çıkıldığında Metin Kutularını Temizlenmesi Hk. Yardım sadooo 20 372 11/05/2017, 22:59 sadooo
  Stok Takibi Yeni Veri Girişi Hakkında AloneX 4 152 06/05/2017, 11:15 AloneX
Photo Arama Kutusu Hakkında Yardım AloneX 6 163 05/05/2017, 13:52 AloneX
  Kasa Hareketleri İçin Yardım Tablodan Tabloya Otomatik Ekleme uMits 35 554 12/04/2017, 19:21 uMits


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