Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
Noticias y Avisos
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] Manejo OCX impresora Fiscal Epson nueva generación fastpho PowerCOBOL (ActiveX, v4 - v11) 71 8 de abril de 2019 01:27
[Duda] Impresión de Logo en impresora de Tickets Kuk Periféricos 14 28 de agosto de 2017 09:19
[Duda] Impresora POS a 20 metros del equipo jotica Periféricos 2 17 de julio de 2017 01:13
[Información] Utilización de OCX impresora fiscal en RM/Cobol 7 mainero RM/COBOL 3 29 de junio de 2017 22:34
[Sintaxis] Cambiar impresora desde PowerForm Breew PowerFORM 12 23 de agosto de 2015 21:57
Respuesta
 
Herramientas

  #1
Antiguo 24 de enero de 2018, 00:06
IDENTIFICATION DIVISION
drvedia1981
Novato Junior
ENVIRONMENT DIVISION
Avatar de drvedia1981
DATA DIVISION
Forero desde (Registrado)febrero 2017
Argentina
UbicaciónCaba Argentina
Última Actividad11.12.2018 14:07
PROCEDURE DIVISION
PostsPosts: 33
Ha dicho GraciasEnviado: 1
Ha recibido agradecimientosRecibido: 3
Mejores respuestasSoluiones: 1
ReputaciónReputación: 0
drvedia1981 is an unknown quantity at this point
Predeterminado Impresora zebra / sato 420 epl2

Hola a todos, alguien imprimiendo en una zebra del tipo 2844 o similar desde power 7, arme un programita en vb6 que envía al com1 y lo llamaba desde pw7 depues de grabar un archivo con los datos a imprimir, pero en win10 no me funciona mas necesito imprimir directo desde power, alguna dll o idea de como lo puedo hacer?.
Muchas gracias Saludos
Codigo en vb6

Código VB:
  1. Private Sub Command2_Click()
  2.    Open "C:\Fpw\etiquetas.dat" For Input As #2
  3.      Input #2, barras, cantidad, lote
  4.    Close #2
  5. SerialCom.Output = Chr(10) & "N" & Chr(10)
  6. SerialCom.Output = "A15,5,0,1,1,1,N,""FAJA GARANTIA""" & Chr(10)
  7. SerialCom.Output = "A15,25,0,1,1,1,N,""Lote : """ & Chr(10)
  8. SerialCom.Output = "A87,25,0,1,2,1,N," & Chr(34) & Val(lote) & Chr(34) & Chr(10)
  9. SerialCom.Output = "A235,35,1,1,1,1,N,""FECHA""" & Chr(10)
  10. SerialCom.Output = "A205,12,1,1,1,1,N,""  /   /""" & Chr(10)
  11. SerialCom.Output = "B15,41,0,E80,2,9,35,N," & Chr(34) & barras & Chr(34) & Chr(10)
  12. SerialCom.Output = "A15,85,0,1,2,1,N," & Chr(34) & barras & Chr(34) & Chr(10)
  13. SerialCom.Output = "P" & Val(cantidad) & Chr(10)
  14. End Sub
drvedia1981 no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 25 de enero de 2018, 19:45
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)diciembre 2014
España
UbicaciónMadrid
Edad34 años
Última Actividad25.06.2019 20:59
PROCEDURE DIVISION
PostsPosts: 1.393
Ha dicho GraciasEnviado: 304
Ha recibido agradecimientosRecibido: 526
Mejores respuestasSoluiones: 85
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

drvedia1981, has mirado si en la página del fabricante hay algún OCX/DLL para manejar la impresora?


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick:

Kuk no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 29 de enero de 2018, 19:21
IDENTIFICATION DIVISION
Rapinto
Gran amigo del Foro y Guru de COBOL
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
Forero desde (Registrado)febrero 2015
Portugal
UbicaciónPorto
Última Actividad29.01.2018 19:23
PROCEDURE DIVISION
PostsPosts: 246
Ha dicho GraciasEnviado: 19
Ha recibido agradecimientosRecibido: 215
Mejores respuestasSoluiones: 47
Medallas recibidas: 2Medallas: Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por ayudar mucho a los foreros  Guru de los Gurus: Por solidos y amplios conocimientos - Razón: Por saber demasiado! 
ReputaciónReputación: 13
Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road
Predeterminado

Estou a usar uma ZEBRA 410 industrial com etiquetas de 100mmx50mm e com outras etiquetas de 100mmx99mm.
Instalei a impressora zebra no Windows 10.
Com o PowerForm desenhei a etiqueta com os códigos de barras que precisava.
E ... imprime muito bem e rápido e corta o papel no fim se tiver "cutter"

Porque não tentas fazer por este processo?
O PowerFORM permite desenhar a etiqueta sem grandes problemas.

Un saludo,
Rui Pinto

PS: Andava por aí no foro um ocx para portas COM
Rapinto no ha iniciado sesión   Responder Con Cita
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 15:10.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.