Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
03/08/2012 14:01
Konu Sahibi
QATLET
Yorumlar
4
Okunma
1629
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
12/10/2017,15: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
17/10/2017,17:32
Çö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....
122
02/02/2012
20
Eskişehir
Ofis 2013 64 Bit
12/10/2017,15: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
17/10/2017,17:32
Çö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....
122
02/02/2012
20
Eskişehir
Ofis 2013 64 Bit
12/10/2017,15: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ü Like Kullanımı Hakkında ALike Hatası anno 11 307 05/10/2017, 14:38 anno
Çözüldü Yardım : Tablodaki Bir Verinin Combobox İle Secilerek Tutarının Gösterilmesi orba 2 123 18/09/2017, 04:55 orba
Çözüldü Emlak Takip Programları Hakkında Yardım oguzhanulger 2 168 28/08/2017, 18:07 simendifer
Çözüldü Sürekli Formda Kayıt Girdisi Üstte Olması Yardım... bilservisci 13 410 28/08/2017, 01:42 bilservisci
Çözüldü Raporun Son Sayfadaki Sayfa Toplamı Görüntülenmesin irfans 2 195 31/07/2017, 17:11 irfans

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.