PrtDevMode kodu kullanımı
Tarih
18/12/2009 14:27
Konu Sahibi
serayhefe
Yorumlar
1
Okunma
808
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



serayhefe
Üye
Kullanici Avatari
Üye
10
3
21/08/2009
0
Ankara
Ofis 2007
24/11/2010,17:02
Programı büyük ölçüde bitirdim. Fakat döküm kısmında sıkıntı yaşadım. Çünkü normal dökersen yazıcı A4 kabul ediyor kağıt boyutunda Custom özelliği de yok. Döküm yapılan kağıdın boyu 12 inç veya 30.48 cm genişliği 8 inç. Access 2007 yardım menüsünde PrtDevMode özelliği hakkında yardım var. Fakat kodun nasıl yazılacağını bulamadım. Yazıcım Epson FX 2190 ESC/P.
serayhefe, 21-08-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


serayhefe
Üye
Kullanici Avatari
Üye
10
3
21/08/2009
0
Ankara
Ofis 2007
24/11/2010,17:02
http://office.microsoft.com/en-us/access...41033.aspx
http://www.vbforums.com/archive/index.php/t-345367.html

linklerden yararlandım aşağıdaki kodları denedim yine olmadı
A4 döküyor ama ben 12X8 inç çıksın istiyorum.
Malum A4 210X297 cm o nedenle her kayıtta kaydırıyor.

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
Option Compare Database

Private Type str_DEVMODE
RGB As String * 94
End Type

Private Type type_DEVMODE

strDeviceName As String * 32
intSpecVersion As Integer
intDriverVersion As Integer
intSize As Integer
intDriverExtra As Integer
lngFields As Long
intOrientation As Integer
intPaperSize As Integer
intPaperLength As Integer
intPaperWidth As Integer
intScale As Integer
intCopies As Integer
intDefaultSource As Integer
intPrintQuality As Integer
intColor As Integer
intDuplex As Integer
intResolution As Integer
intTTOption As Integer
intCollate As Integer
strFormName As String * 32
lngPad As Long
lngBits As Long
lngPW As Long
lngPH As Long
lngDFI As Long
lngDFr As Long
End Type

Private Sub Komut115_Click()

'Sayfa uzunluğu ve genişliğini ayarlama
Dim DevString As str_DEVMODE
Dim DM As type_DEVMODE
Dim strDevModeExtra As String
Dim rpt As Report
Dim intResponse As Integer



' Opens report in Design view.
DoCmd.OpenReport "AVANSDOKUM", acDesign
Set rpt = Reports("AVANSDOKUM")


If Not IsNull(rpt.PrtDevMode) Then
strDevModeExtra = rpt.PrtDevMode
' Gets current DEVMODE structure.
DevString.RGB = strDevModeExtra
LSet DM = DevString

If DM.intPaperSize = 256 Then
' Display user-defined size.
intResponse = MsgBox("The current custom page size is " & _
DM.intPaperWidth / 254 & " inches wide by " & _
DM.intPaperLength / 254 & " inches long. Do you want " & _
"to change the settings?", vbYesNo + vbQuestion)

Else

' Currently not user-defined.

intResponse = MsgBox("The report does not have a custom page size. " & _

"Do you want to define one?", vbYesNo + vbQuestion)

End If
If intResponse = vbYes Then

' User wants to change settings. Initialize fields.

DM.lngFields = DM.lngFields Or DM.intPaperSize Or _
DM.intPaperLength Or DM.intPaperWidth
' Set custom page.

DM.intPaperSize = 256

' Prompt for length and width.
DM.intPaperLength = 12 * 254
DM.intPaperWidth = 8 * 254

' Update property.

LSet DevString = DM
Mid(strDevModeExtra, 1, 94) = DevString.RGB
rpt.PrtDevMode = strDevModeExtra

End If

End If
Set rpt = Nothing

'DoCmd.Close acReport, "AVANSDOKUM", acSaveYes
DoCmd.PrintOut (AVANSDOKUM)

End Sub

serayhefe, 21-08-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Otomatik tamamlama kodu alt forma düzeltme yada kayıt yapmaya engel oluyor F.Ç 0 1.252 04/10/2013, 00:30 F.Ç
  ADO da RTF kullanımı ynlmz 2 898 03/09/2013, 16:11 ynlmz
  DSum İşlevi Kullanımı karaayhan 0 774 10/02/2013, 02:05 karaayhan
  İlişkili veritabanı kullanımı vlk4n 0 1.039 30/11/2011, 21:28 vlk4n
  Acces de menü kullanımı antalya1250 3 888 12/10/2011, 16:32 Kur@l


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