-
Notifications
You must be signed in to change notification settings - Fork 3
/
FRMIMPRIMIR.FRM
141 lines (130 loc) · 4.01 KB
/
FRMIMPRIMIR.FRM
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
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
VERSION 5.00
Begin VB.Form frmImprimir
BorderStyle = 3 'Fixed Dialog
Caption = "Imprimir"
ClientHeight = 1545
ClientLeft = 3435
ClientTop = 3600
ClientWidth = 3705
Icon = "frmImprimir.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1545
ScaleWidth = 3705
ShowInTaskbar = 0 'False
Begin VB.CommandButton cmd
Caption = "&Salir"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 1
Left = 2040
TabIndex = 4
Top = 1080
Width = 1215
End
Begin VB.CommandButton cmd
Caption = "&Aceptar"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 0
Left = 435
TabIndex = 3
Top = 1065
Width = 1215
End
Begin VB.Frame fra
Caption = "Imprimir"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 900
Left = 90
TabIndex = 0
Top = 75
Width = 3540
Begin VB.OptionButton opt
Caption = "Resumido"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 1
Left = 1950
TabIndex = 2
Top = 360
Width = 1230
End
Begin VB.OptionButton opt
Caption = "Detallado"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 0
Left = 300
TabIndex = 1
Top = 360
Value = -1 'True
Width = 1275
End
End
End
Attribute VB_Name = "frmImprimir"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmd_Click(Index As Integer)
If Index = 0 Then
If opt(0).Value Then
frmReporte.tipo = 0
Else
frmReporte.tipo = 1
End If
frmReporte.Show vbModal
Else
Unload Me
End If
End Sub
Private Sub Form_Load()
CenterWindow hwnd
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set frmImprimir = Nothing
End Sub