Visual Basic - Imprimir por coordenadas

Life is soft - evento anual de software empresarial
 
Vista:
Imágen de perfil de Andres
Val: 60
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir por coordenadas

Publicado por Andres (20 intervenciones) el 17/01/2020 15:37:09
Buenos días amigos todos, jejee
se nota que aun soy un noob en vb6, y estoy tratando de averiguar si hay la posibilidad de imprimir un o varios textbox por coordenadas, osea yo registro el top, left, height, width y con esa ubicación registrada tomar la posición, en el form en imprimir el form, esto es posible o no?
agradezco la ayuda si alguien sabe algo mejor para imprimir por coordenadas, me ayuda con el link para revisar
muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.953
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir por coordenadas

Publicado por Andres Leonardo (1714 intervenciones) el 17/01/2020 20:54:24
No entiendo lo qeu quieres hacer podrias poner un ejemplo del form.. que encuentras y que quieres imprimir

Quedo atento

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres
Val: 60
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir por coordenadas

Publicado por Andres (20 intervenciones) el 20/01/2020 14:28:36
quiero saber si hay la posibilidad de enviar a imprimir un frame al que le doy un tamaño especifico y dentro de ese frame le puedo poner txtbox y labels igual de tamaños específicos
im

Luego cuando ya estén en las posiciones especificas, puedo enviar a imprimir mediante el printer.print
pero solo el frame y los objetos dentro del frame?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.953
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir por coordenadas

Publicado por Andres Leonardo (1714 intervenciones) el 20/01/2020 20:25:31
lo que yo haria es recorrer el frame y sus componentes y luego esto ponerlo en alguna variable o algo para que solo eso se imprimima


for each control on form
aqui ver que se hace

next control

Espeor te ayude
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Andres
Val: 60
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir por coordenadas

Publicado por Andres (20 intervenciones) el 22/01/2020 14:19:23
acabo de probar con la opción 2
2 FORMAS:

Configura tu impresora, para ese tipo de papel, usa un reporteador y lo configuras de igual manera, para probar puedes usar el DATAREPORT pero crea muchos temporales, ya tu ve.

La otra, yo e visto en un proyecto similar, lo que hacen es DIBUJAR en un form, el modelo del ticket y luego imprimes todo el formulario con el metodo PRINT del form.

ahora al parecer tengo un inconveniente de el driver de la impresora voy a seguirlo probando, muchas gracias por la ayuda.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.953
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir por coordenadas

Publicado por Andres Leonardo (1714 intervenciones) el 23/01/2020 15:16:50
pero si lo que quieres es imprimir tipo recibo te envio un ejemplo para que puedas imprimir con una generic text only espero te ayude....
y esto no lo dibujas solo mandas las lineas una a una.

debes instalar una impresora generic text only y luego la compartes... en la apertura pones el nombre del equipo y la uimpresoras y listo

esper te ayude
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Andres
Val: 60
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir por coordenadas

Publicado por Andres (20 intervenciones) el 24/01/2020 14:05:58
En este momento voy a probarlo muchas gracias por la ayuda
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.953
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir por coordenadas

Publicado por Andres Leonardo (1714 intervenciones) el 24/01/2020 20:49:26
espero nos avises como te fue!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Andres
Val: 60
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir por coordenadas

Publicado por Andres (20 intervenciones) el 24/01/2020 23:50:43
fue genial la adaptación fue muy chevere, ahora me dijeron que no quieren asi y me toco volver a la idea original jajaaa
tengo que adaptar un tipo crystal report dentro de vb6
jajjajaa así sufriendo, sufriendo logre hacer algo parecido, ya me imprime los objetos en las posiciones deseadas según lo que me trae de una consulta fue todo un relajaso:
cabe recalcar que soy demasiado nuevo en vb6 algun rato cuando aprenda bien puede que optimice el codigo
lo dejo por aqui como hice lo de la impresión:


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
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
Private Sub KewImprimir_Click()
    'Variables para calculos de valores
    Dim total As Double, iva As Double, acumulador As Double, longitud As Integer
    Dim alto, ancho, posX, posY, AltoCm, AnchoCm, posiX, PosiiY As Double
    'conexion db
    Set rst10 = New ADODB.Recordset: Set rst10.ActiveConnection = DataEnvironment1.Connection1 'conexion
    NCOM10 = "SELECT * FROM IVDIA_FACTURA_VENTA WHERE IEFAVE_IDEN ='7610'": CONSULTA_X (NCOM10) 'query
    rst10.MoveFirst
    'se asigana cada rst10 al textBox necesario
    txtCliente = (Trim(rst10!FECLIE_APEC) + " " + Trim(rst10!FECLIE_NOMC))
    txtIdentificacion = Trim(rst10!FECLIE_CODC)
    txtDireccion = Trim(rst10!FECLIE_DIRC)
    txtFecha = (Trim(rst10!IEFAVE_FEMI) + " " + Trim(rst10!IEFAVE_HORA))
    txtTelefono = Trim(rst10!FECLIE_TELC)
    txtTipoPago = Trim(rst10!TipoVta)
    txtEfectivo = Trim(rst10!IEFAVE_TOTA)
    txtVendedor = Trim(rst10!EmpRep)
    txtCIva = Trim(rst10!IEFAVE_CIVA)
    txtSIva = Trim(rst10!IEFAVE_SIVA)
    txtDescuento = Trim(rst10!IEFAVE_DSCT)
    'inicia msflexgrid
    lista.Rows = 1
    lista.ColAlignment(0) = flexAlignCenterCenter
    lista.ColAlignment(1) = flexAlignLeftCenter
    lista.ColAlignment(2) = flexAlignRightCenter
    lista.ColAlignment(3) = flexAlignRightCenter
    If rst10.EOF = False Then
    'for para llenar msflexgrid
        For I = 1 To rst10.RecordCount
            lista.Rows = lista.Rows + 1
            lista.TextMatrix(I, 0) = Trim(rst10!IEDEFV_CANG)
            longitud = Len(Trim(rst10!IEPROD_DESP))
            If longitud >= 20 Then
                lista.TextMatrix(I, 1) = Mid(Trim(rst10!IEPROD_DESP), 1, 14)
            Else
                lista.TextMatrix(I, 1) = Trim(rst10!IEPROD_DESP)
            End If
            lista.TextMatrix(I, 2) = Trim(rst10!IEDEFV_VUNI)
            lista.TextMatrix(I, 3) = (Trim(rst10!IEDEFV_CANG) * Trim(rst10!IEDEFV_VUNI))
            acumulador = acumulador + lista.TextMatrix(I, 3)
            'aqui cambia de fila
            rst10.MoveNext
            If I = rst10.RecordCount Then
                iva = acumulador * 0.12
                total = acumulador + iva
                lista.Rows = lista.Rows + 5
                lista.TextMatrix(I + 1, 2) = "BsImp:"
                lista.TextMatrix(I + 1, 3) = acumulador
                lista.TextMatrix(I + 2, 2) = "C/Iva:"
                lista.TextMatrix(I + 2, 3) = txtCIva
                lista.TextMatrix(I + 3, 2) = "S/Iva:"
                lista.TextMatrix(I + 3, 3) = txtSIva
                lista.TextMatrix(I + 4, 2) = "Iva: "
                lista.TextMatrix(I + 4, 3) = iva
                lista.TextMatrix(I + 5, 2) = "Total:"
                lista.TextMatrix(I + 5, 3) = total
            End If
        Next I
        'Calculos de valores
        txtBaseImp = acumulador
        txtIva = iva
        txtVTotal = total
    End If
    'consulta para las coordenadas
    Set rst10 = New ADODB.Recordset: Set rst10.ActiveConnection = DataEnvironment1.Connection1 'conexion
    NCOM10 = "select * from pedia_demo inner join PEDIA_MOLD on pedia_demo.PEMOLD_IDEN = pedia_mold.PEMOLD_IDEN where .pedia_demo.PEMOLD_IDEN = '1'": CONSULTA_X (NCOM10) 'query
    rst10.MoveFirst
    'llenar grid Posiciones
    posiciones.Rows = 1
    If rst10.EOF = False Then
        For I = 1 To rst10.RecordCount
          posiciones.Rows = posiciones.Rows + 1
          posiciones.TextMatrix(I, 0) = Trim(rst10!PEDEMO_IDEN)
          posiciones.TextMatrix(I, 1) = Trim(rst10!PEMOLD_IDEN)
          posiciones.TextMatrix(I, 2) = Trim(rst10!PEDEMO_POSX)
          posiciones.TextMatrix(I, 3) = Trim(rst10!PEDEMO_POSY)
          posiciones.TextMatrix(I, 4) = Trim(rst10!PEDEMO_VISI)
          posiciones.TextMatrix(I, 5) = Trim(rst10!PEDEMO_ALTO)
          posiciones.TextMatrix(I, 6) = Trim(rst10!PEDEMO_ANCH)
          posiciones.TextMatrix(I, 7) = Trim(rst10!PEDEMO_CODI)
          posiciones.TextMatrix(I, 8) = Trim(rst10!PEMOLD_IDEN)
          posiciones.TextMatrix(I, 9) = Trim(rst10!PEMOLD_NOMP)
          posiciones.TextMatrix(I, 10) = Trim(rst10!PEMOLD_TIDO)
          posiciones.TextMatrix(I, 11) = Trim(rst10!PEMOLD_ACTI)
          posiciones.TextMatrix(I, 12) = Trim(rst10!PEMOLD_ALTO)
          posiciones.TextMatrix(I, 13) = Trim(rst10!PEMOLD_ANCH)
          'aqui cambia de fila
          rst10.MoveNext
        Next I
    End If
    'Impresion, primero se agrega variable
    Dim iFila, iCol As Integer: Dim posiY, ultiEspacio As Double
    Dim XObjeto, YObjeto, altoO, anchoO As Double
    Dim prefijo As String
    Dim variable2 As Integer
    Printer.ScaleMode = vbCentimeters: Printer.FontSize = 8 ': Printer.Width = 13 ': Printer.Font = "Draft 10cpi"
    'ciclo para el encabezado
    For I = 1 To posiciones.Rows - 1
        XObjeto = Trim(posiciones.TextMatrix(I, 2))
        YObjeto = Trim(posiciones.TextMatrix(I, 3))
'        altoO = Trim(posiciones.TextMatrix(I, 5))
'        anchoO = Trim(posiciones.TextMatrix(I, 6))
        variable2 = Trim(posiciones.TextMatrix(I, 7))
        'condicion que transforma la variable 2 a objeto de la lista
        If variable2 = 0 Then
            Set varObj = lblNombreCliente
        ElseIf variable2 = 1 Then
            Set varObj = txtCliente
        ElseIf variable2 = 2 Then
            Set varObj = lblIdentificacion
        ElseIf variable2 = 3 Then
           Set varObj = txtIdentificacion
        ElseIf variable2 = 4 Then
            Set varObj = lblDireccion
        ElseIf variable2 = 5 Then
            Set varObj = txtDireccion
        ElseIf variable2 = 6 Then
            Set varObj = lblFecha
        ElseIf variable2 = 7 Then
            Set varObj = txtFecha
        ElseIf variable2 = 8 Then
            Set varObj = lblTelefono
        ElseIf variable2 = 9 Then
            Set varObj = txtTelefono
        ElseIf variable2 = 10 Then
            Set varObj = lblTipoPago
        ElseIf variable2 = 11 Then
            Set varObj = txtTipoPago
        ElseIf variable2 = 12 Then
            Set varObj = lblTotal
        ElseIf variable2 = 13 Then
            Set varObj = txtVTotal
        ElseIf variable2 = 14 Then
            Set varObj = lblEfectivo
        ElseIf variable2 = 15 Then
            Set varObj = txtEfectivo
        ElseIf variable2 = 16 Then
            Set varObj = lblIva
        ElseIf variable2 = 17 Then
            Set varObj = txtIva
        ElseIf variable2 = 18 Then
            Set varObj = lblDolares
        ElseIf variable2 = 19 Then
            Set varObj = txtDolares
        ElseIf variable2 = 20 Then
            Set varObj = lblCambio
        ElseIf variable2 = 21 Then
            Set varObj = txtCambio
        ElseIf variable2 = 22 Then
            Set varObj = lblCheque
        ElseIf variable2 = 23 Then
            Set varObj = txtCheque
        ElseIf variable2 = 24 Then
            Set varObj = lblDeposito
        ElseIf variable2 = 25 Then
            Set varObj = txtDeposito
        ElseIf varaible2 = 26 Then
            Set varObj = lblTarjeta
        ElseIf varaible2 = 27 Then
            Set varObj = txtTarjeta
        ElseIf variable2 = 28 Then
            Set varObj = lblCIva
        ElseIf varaible2 = 29 Then
            Set varObj = txtCIva
        ElseIf variable2 = 30 Then
            Set varObj = lblSIva
        ElseIf varaible2 = 31 Then
            Set varObj = txtSIva
        ElseIf variable2 = 32 Then
            Set varObj = lblDiElectronico
        ElseIf variable2 = 33 Then
            Set varObj = txtDElectronico
        ElseIf variable2 = 34 Then
            Set varObj = lblDescuento
        ElseIf varaible2 = 35 Then
            Set varObj = txtDescuento
        ElseIf variable2 = 36 Then
            Set varObj = lblVende
        ElseIf varaible2 = 37 Then
            Set varObj = txtVendedor
        ElseIf varaible2 = 38 Then
            Set varObj = lblAlto
        ElseIf varaible2 = 39 Then
            Set varObj = txtAlto
        ElseIf variable2 = 40 Then
            Set varObj = lblAncho
        ElseIf varaible2 = 41 Then
            Set varObj = txtAncho
        ElseIf variable2 = 42 Then
            Set varObj = lblEspaciado
        ElseIf variable2 = 43 Then
            Set varObj = txtEspaciado
        ElseIf varaible2 = 44 Then
            Set varObj = lblPosicionY
        ElseIf varaible2 = 45 Then
            Set varObj = txtPosY
        ElseIf varaible2 = 46 Then
            Set varObj = lblPosicionX
        ElseIf variable2 = 47 Then
            Set varObj = txtPosX
'        ElseIf variable2 = 57 Then
'            Set varObj = lista
        ElseIf variable2 = 58 Then
            Set varObj = lblBaseImp
        ElseIf varaible2 = 59 Then
            Set varObj = txtBaseImp
        End If
        'if para impresion
        With Printer
            .CurrentX = XObjeto / 567
            .CurrentY = YObjeto / 567
            '.Height = altoO / 567
            '.Width = anchoO / 567
            Printer.Print varObj
            ultiEspacio = varObj.TOP / 567
        End With
    Next I
    'calculo el tamaño del ultimo campo
    'ultiEspacio = varObj.TOP / 567
    'inicio de imrpesion de detalle
    posiY = ultiEspacio + 1
        For iFila = 0 To lista.Rows - 1
            PosImp Val(posiY), 0, Trim(lista.TextMatrix(iFila, 0)) 'cantidad
            PosImp Val(posiY), 0.9, Trim(lista.TextMatrix(iFila, 1))   'detalle
            PosImp Val(posiY), 5.5, Format(Format(Trim(lista.TextMatrix(iFila, 2)), "###0.0000"), "@@@@@@@") 'V unitario
            PosImp Val(posiY), 7.9, Format(Format(Trim(lista.TextMatrix(iFila, 3)), "###0.0000"), "@@@@@@@")  'Vtotal
        posiY = posiY + 0.5: If posiY > 28 Then posiY = 2: Printer.NewPage
         Next iFila
    'aqui hace la magia para imprimir
    Printer.EndDoc
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres
Val: 60
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir por coordenadas

Publicado por Andres (20 intervenciones) el 25/01/2020 18:38:28
otra consulta, para que funcione en el ejemplo que me envió, debo generar un archivo para que se imprima por la configuración del botón 3, pero hay muchas cosas que aun no me salen bien, jajajaja ya perdí la esperanza hay alguna forma de imprimir, me puede dar una clase sobre controlar las impresiones desde visual basic 6.0 ?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.953
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir por coordenadas

Publicado por Andres Leonardo (1714 intervenciones) el 27/01/2020 17:14:49
No debes crear un archivo en realidad lo crea en memoria y lo envia a un puerto de impresion.
Lo del tema es que parece que estas trabajando en un formato pre impreso por ende debes cuadrar posiciones es tremendo trabajo y asi nos matemos no podriamos ayudarte por que tu solo tienes el ambiente recreado

nosotros deberiamos tenre la misma impresora y formato pre impreso .. pero dime que mas necesitas para poder hacer el tema de impresion..


otra manera es que uses un data report quizas ahi te funcione con posiciones especificas

en todo caso que llevas ahora para poderte ayudar mejor
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Andres
Val: 60
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir por coordenadas

Publicado por Andres (20 intervenciones) el 27/01/2020 20:46:40
ya cuadre mejor la idea, es prácticamente de un formulario con algunos textbox y labels enviarlo a una función en un modulo, de ahí hacer que se imprima, estoy tratando de ver como hago eso, el problema es que no se mucho de vb6 y recién estoy aprendiendo, y una pregunta cual cree que es el mejor método para imprimir un ticket de venta?
la impresora debe funcionar con el driver genérico nomas, en crystal reports sale bien lenta la impresión
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.953
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir por coordenadas

Publicado por Andres Leonardo (1714 intervenciones) el 28/01/2020 17:18:42
Yo recomiendo usar el ejemplo que te di
con eso seteas la impresora con el driver generico, solo texto y seteas la impresora para los fuentes, para los tamanos, puedes imprimir mucho mas rapido por que es solo texto formateado

Espero que con esto te aclare la duda

Saludos
Andres
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres
Val: 60
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir por coordenadas

Publicado por Andres (20 intervenciones) el 28/01/2020 21:00:00
una consulta, eso de la ruta que me pide a que se refiere, en serio tengo solo un mes en vb6 no se mucho

error

el boton 2 y 3 me sale un mensaje de que no se encontró la ruta de acceso
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.953
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir por coordenadas

Publicado por Andres Leonardo (1714 intervenciones) el 29/01/2020 16:24:20
**Pimero ... tu impresora es termica???

SI la respuesta es si...

Primero crea una impresora generic text only en tu maquina, y al final la compartes ponle un nombre sencillo como EPSONTM o como tu quieras

donde dice aguerrero pones el nombre de tu maquina
donde dice EPSONTM le pones el nombre com que compartiste la impresora

Me avisas.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres
Val: 60
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir por coordenadas

Publicado por Andres (20 intervenciones) el 29/01/2020 17:31:14
me salio, que genial, ahora si voy a tratar de adaptarle a lo que tengo apenas tenga como quedo compartire para que si alguien tiene el mismo inconveniente le pueda servir
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.953
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir por coordenadas

Publicado por Andres Leonardo (1714 intervenciones) el 29/01/2020 22:27:48
Pues me alegro muchisimo ... para esto son los foros... para poder aprender me alegro que este simple ejemplo te ayude en tu cometido

Hay mas caracteres de control .. puedes buscar caracteres de Escape .. es algo tedioso pero cualquier duda preguntala

luego te toca diseñar... primero juega con los tipos de la factura , haz que determines como deseasrias

te aconsejo...


crear una cabecera de comrpobante
Nombre local, fecha, numero de comprobante, nombre cliente dicentificaicon etc etc etc

el detalled e items
item nombre, valor unitario cantidad y total



los pie de
total del items, total de valor sin impuesto, impuestos calculados total a pagar
datos del cajero si no los pusiste en la cabecera etc etc etc....


una vez con un diseño ahi si metes codigos de valores con datos rescatados de base de datos por el momento manda temas quemados asi defines el formato , preparate a gastar un rollo de papel probando y volviendo a imprimir jejejejej



Espero que nos cuentes como te fue

Saludos desde Ecuador
Andres...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres
Val: 60
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir por coordenadas

Publicado por Andres (20 intervenciones) el 25/02/2020 18:48:50
Una consulta, que pasaría si quiero imprimir desde escritorio remoto?
porque le mando con el open pero cuando trato de imprimir desde escritorio remoto no me permite la impresión porque no encuentra esa impresora en red, y en red desde el escritorio remoto me aparece la ip de la maquina a través de vpn y la impresora, pero desde la aplicación no la reconoce, hay que realizar alguna configuración extra para poder realizar la impresión desde escritorio remoto?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.953
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir por coordenadas

Publicado por Andres Leonardo (1714 intervenciones) el 26/02/2020 16:07:04
Mira si en escritorio remoto en las opciones puedes ocmpartir la impresor local, entiendo que es eso

Recuerda que la aplicacion no "sabe" que estas virtualmente en esa maquina


Capture
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Andres
Val: 60
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir por coordenadas

Publicado por Andres (20 intervenciones) el 26/02/2020 17:24:03
si le marco esa opcion, pero al momento que llega
escritorio

y de hecho la impresora me imprime y todo pero cuando llega en el sistema la linea de open me envía al error y no abre la impresora
le puse con la ip, el nombre segun como esta en la carpeta de red en el escritorio remoto, no se si el open solo lo hace en instancia local y no con escritorios remotos?
alguna vez ha intentado imprimir desde escritorio remoto con el Open?
OPEN "C:\RUTA\ARCHIVO.TXT" FROM OUTPUT AS #1
PRINT #1, VARIABLE
CLOSE #1
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.953
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir por coordenadas

Publicado por Andres Leonardo (1714 intervenciones) el 27/02/2020 19:24:55
pero entonces hazlo facil, la pc de destino (donde te conectas el escritorio remoto) instalale la impresora

Anda \\PCORIGEN

ahi te sale la impresora y conectar, ahi se importa tu impresora en la pc destino

en la pcdestino Imprimes

Nos cuentas lastimosamente no tengo el entorno para hacer esa prueba
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres
Val: 60
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir por coordenadas

Publicado por Andres (20 intervenciones) el 04/03/2020 17:56:36
Por el momento se desestimo el cambio, hasta poder revisar el porque no se imprime desde escritorio remoto, en realidad funciona hasta con ip en la misma red pero por escritorio remoto :(
le instalo la misma impresora desde escritorio remoto y la prueba de impresión la envía y la imprime, pero no envía desde el sistema en si
entonces no se si es una integración de vb 6.0 con los escritorios remotos, el fin de semana me dedicare un tiempo para poder saber que mismo va a pasar
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.953
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir por coordenadas

Publicado por Andres Leonardo (1714 intervenciones) el 04/03/2020 22:14:59
Indica por que razon debes imprimir con escritorio remoto
quizas asi te podermos dar otras ideas para evitar esto.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres
Val: 60
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir por coordenadas

Publicado por Andres (20 intervenciones) el 04/03/2020 23:52:39
cuando la app se ejecuta en un servidor funciona en esa red local bien, ahora el inconveniente es que para ir a otras sucursales, por ejemplo de una ciudad a otra, usan conexión de escritorio remoto a través de una vpn, y la impresora is se conecta e imprime usando la conexión de escritorio remoto, lo único que no reconoce es cuando entra en el open, tal vez puedo probar alguna otra opción de conexión?

porque y en .net es rápido este tipo de conexiones cliente servidor con aplicaciones de escritorio?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.953
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir por coordenadas

Publicado por Andres Leonardo (1714 intervenciones) el 05/03/2020 15:05:01
Pero si estan en la red, por que noi pones la Base de datos en la red, y que cada sucursal imprima localmente por que la impresion debe ser remota?

Yo lo que haria
La base de datos (debe estar en un servidor) Cada Sucursal que tenga el .EXE,-- luego tendras que ver un tema de actualizacion cuando se actualice el .EXE--

Y asi cada Sucursal imprime localmente

No entiendo que esquema estas usando y por uqe la APP se debe ejecutar en un servidor?
Cuando por eso es cliente servidor... los clientes tienen los EXES localmente en las sucursales y en el servidor solo los recursos que se requiere compartir

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres
Val: 60
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir por coordenadas

Publicado por Andres (20 intervenciones) el 05/03/2020 15:14:40
el inconveniente es que la base esta en un solo servidor y por eso se accede por rdp a traves de escritorio remoto, entonces seria mejor centralizar la base en un servidor aparte puede ser virtualizado verdad y ahí si conectarse directo al servidor de base de datos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar