Visual Basic - Imprimir por coordenadas

Life is soft - evento anual de software empresarial

Pos: 36

Val: 40

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 clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 1

Val: 3.117

Imprimir por coordenadas

Publicado por Andres Leonardo (1798 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 clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pos: 36

Val: 40

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

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

Comentar

Pos: 1

Val: 3.117

Imprimir por coordenadas

Publicado por Andres Leonardo (1798 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

Comentar

Pos: 36

Val: 40

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

Comentar

Pos: 1

Val: 3.117

Imprimir por coordenadas

Publicado por Andres Leonardo (1798 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

ProbadorImpresora.zip(831,1 KB)

Valora esta respuesta

Comentar

Pos: 36

Val: 40

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

Comentar

Pos: 1

Val: 3.117

Imprimir por coordenadas

Publicado por Andres Leonardo (1798 intervenciones) el 24/01/2020 20:49:26

espero nos avises como te fue!

Valora esta respuesta

Comentar

Pos: 36

Val: 40

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:

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

Comentar

Pos: 36

Val: 40

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

Comentar

Pos: 1

Val: 3.117

Imprimir por coordenadas

Publicado por Andres Leonardo (1798 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

Comentar

Pos: 36

Val: 40

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

Comentar

Pos: 1

Val: 3.117

Imprimir por coordenadas

Publicado por Andres Leonardo (1798 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

Comentar

Pos: 36

Val: 40

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

Comentar

Pos: 1

Val: 3.117

Imprimir por coordenadas

Publicado por Andres Leonardo (1798 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

Comentar

Pos: 36

Val: 40

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

Comentar

Pos: 1

Val: 3.117

Imprimir por coordenadas

Publicado por Andres Leonardo (1798 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

Comentar

Pos: 36

Val: 40

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

Comentar

Pos: 1

Val: 3.117

Imprimir por coordenadas

Publicado por Andres Leonardo (1798 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

Comentar

Pos: 36

Val: 40

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

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

Comentar

Pos: 1

Val: 3.117

Imprimir por coordenadas

Publicado por Andres Leonardo (1798 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

Comentar

Pos: 36

Val: 40

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

Comentar

Pos: 1

Val: 3.117

Imprimir por coordenadas

Publicado por Andres Leonardo (1798 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

Comentar

Pos: 36

Val: 40

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

Comentar

Pos: 1

Val: 3.117

Imprimir por coordenadas

Publicado por Andres Leonardo (1798 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

Comentar

Pos: 36

Val: 40

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

Comentar

Reemplazar solo archivos viejos con Inno Setup

Programa capturor de imágenes Arduino