Jump to content

Fantasmon

Members
  • Content Count

    10
  • Joined

  • Last visited

About Fantasmon

  • Rank
    Member
  • Birthday 12/21/2012

Profile information

  • Gender
    Hombre
  • Localización:
    Hemisferio SUR

Converted

  • Campos
    ;
  1. Buenas....les paso algo que me sirvió para esta 2° "etapa" (cambiar las impresoras); como comenté más arriba el comando "ActivePrinter" no funcionaba en ninguna de las máquinas a las que tengo acceso, ni directamente ni a través de la grabadora de Macros (desconozco el motivo, en Word si pero en Excel no). Lo que detallo a continuación solo ME funciona si en la "Barra de Herramientas de Acceso rápido" inserto el icono de impresión (la verdad no sé si se debe a "algo" en mi Office, reitero lo probé en varias PC), espero que le sirva a alguien o, como yo, pueda adaptarlo a su conveniencia: Solo una aclaración más, siempre se debe volver a la impresora original, ya que el "ciclo" queda con la última impresora seleccionada, se use o no la Macro. Sub Cambio_de_Impresora() ' ' Cambio_de_Impresora Macro ' ' Sheets("Detalle de viaje").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Sheets("Hoja1").Select Application.ActivePrinter = "ZDesigner GC420t (EPL) (Copiar 1) en Ne00:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "ZDesigner GC420t (EPL) (Copiar 1) en Ne00:", Collate:=True, _ IgnorePrintAreas:=False Sheets("Detalle de viaje").Select Application.ActivePrinter = "ET0021B745EDE2 en Ne01:" End Sub TEMA CERRADO
  2. Port Path En el ejemplo USB002 ZDesigner GC420t (EPL) (Copiar 1) Hoja 1 WSD-9d561e63-820e-4b18-8141-f1faf5575d04.003a ET0021B745EDE2 Detalle de viaje USB001 EPSON L210 Series .-----------------.
  3. Hice exactamente lo que me pediste.... a ) Abrí el archivo (abre en Hoja 1 "Detalle de viaje") b ) Comencé a grabar la Macro c ) Imprimí en la impresora 1 (Ctrl + p ó Archivo, imprimir en ambos casos queda igual) d ) Seleccioné la hoja2 (para mí Hoja1) imprimí en impresora 2 (Ctrl + p ó Archivo, imprimir en ambos casos queda igual) e ) Repetí A y C f ) Apagué la grabadora. El código que copié en el mensaje anterior es el resultado; cabe aclarar que en la PC hay conectadas 3 (tres) impresoras; en mi caso necesito imprimir solo en 2 (dos) la N° 1 es vía RED ("ET0021B745EDE2 en Ne01") y la N° 2 es vía USB (ZDesigner GC420t (EPL) (Copiar 1) USB002). La 1° es papel normal, la 2° es para etiquetas autoadhesivas. No sé si esto último sea relevante Windows 7 Professional Service Pack 1 (Microsoft Office Professional Plus 2010)
  4. Ok, ahora si.....(eso espero)... Sub Cacho_R() ' ' Cacho_R Macro ' ' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Sheets("Hoja1").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Sheets("Detalle de viaje").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False End Sub
  5. Creo que ya lo tengo (detalle abajo), lo que quedaría pendiente es cambiar la impresora (cada selección a impresora diferente), se que hay un comando Ative.Printer pero no sé como utilizarlo: Sheets("Hoja1").Select Range("A1:A4").Select QTY = Worksheets("Detalle de viaje").Range("E18") ActiveWindow.SelectedSheets.PrintOut Copies:=QTY, Collate:=True, _ IgnorePrintAreas:=False Sheets("Detalle de viaje").Select Range("A1:E18").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False End Sub
  6. Ta agradezco la respuesta, pero lo que necesito es que salgan tantas copias de la HOJA1 como diga en la celda E18 de "Detalle de viaje". Si la celda dice 5, que sean 5 copias si dice 25 que san 25 copias, etc... No siempre es el mismo número de copias. ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Necesito que en el número de copias traiga el valor de la celda E18.
  7. Buenas tardes, Necesito imprimir lo seleccionado en la "Hoja1" tantas veces como lo dice la celda E18 de la solapa "Detalle de viaje" (esta celda es la sumatoria de otras y cambia según el viaje); más 1 (siempre una sola) de lo seleccionado en "Detalle de viaje". Algo importante: Las impresiones deben hacerse en dos impresoras diferentes ("Detalle de viaje" en impresora 1 y "Hoja1" en impresora 2) Se agradece de antemano. Vamo por ma.....xlsm
  8. Re: Obligación de completar una celda para poder imprimir. Gracias funcionó perfecto....!!!! (Solo le cambié el mensaje que arroja). TEMA CERRADO
  9. Buenos días, como verán en el ejemplo se generó una macro para poder imprimir "carteles" con los datos de una pestaña en particular, lo que necesitaría es que no se pueda imprimir sin completar las celdas (A2; A3; B2) en color celeste de la solapa REMITO. Aclaración: En la celdas A2 y A3 solo pueden ir valores numéricos del 1 al 5 y en la celda B2 desde el 1 al 24 (las tres tienen Validación...). Lamentablemente no puedo subir el archivo porque es muy pesado, pero hay una imagen y está el texto de la macro grabada (espero sirvan).Se agradece de antemano. ejemplo1...txt
×
×
  • Create New...

Important Information

Privacy Policy