Jump to content

Archived

This topic is now archived and is closed to further replies.

ikvergarab

macro para configurar impresora e imprimir

Recommended Posts

buenas noches,

Necesito una macro que me imprima la hoja activa pero debido a que el pc donde va a funcionar la macro tiene varias impresoras asociadas, me gustaría que la macro me escoja una de esas impresoras(que no es la que esta predeterminada) y luego imprima.

gracias!!!! por su valiosA AYUDA!!!

Share this post


Link to post
Share on other sites
Guest sacfa

Espero te sirva:

Sub SeleccionarImpresora()

'Retrieve and set information about the current default printer

Dim FPS As FilePrintSetup

GetCurValues FPS

'Set the default Printer

DefaultPrinter$ = FPS.Printer

FilePrintSetup .Printer = "HP LaserJet IIISi on LPT1:"

'Send the document to the currently selected printer

FilePrint

'Reset to the original default printer

FilePrintSetup .Printer = DefaultPrinter$

End Sub

Comentas si te funciono

- - - - - Mensaje combinado - - - - -

Y adapta esta otra yo lo usaba hace ratos:

Sub SwitchPrinter()

Dim strActivePrinter As String

' Get active printer.

strActivePrinter = Application.ActivePrinter

' Change to the Microsoft Fax printer driver.

Application.ActivePrinter = "Microsoft Fax"

' Print the active document to Fax.

ActiveDocument.PrintOut

' Change back to the default printer.

Application.ActivePrinter = strActivePrinter

End Sub

- - - - - Mensaje combinado - - - - -

Esta macro te permite ver todas las impresoras intaladas, INSERTA UN USERFORM y UN LISTBOX y pega esta macro:

Option Explicit

Private Sub ListBox1_Click()

Dim WshNetwork

Set WshNetwork = CreateObject("WScript.Network")

Dim paso

MsgBox Application.ActivePrinter

paso = ListBox1.Text

WshNetwork.SetDefaultPrinter paso

MsgBox Application.ActivePrinter

End Sub

Private Sub UserForm_Initialize()

Dim WshNetwork, Printers, i

Set WshNetwork = CreateObject("WScript.Network")

Set Printers = WshNetwork.EnumPrinterConnections

For i = 0 To Printers.Count - 1 Step 2

ListBox1.AddItem Printers.Item(i + 1)

Next

End Sub

Share this post


Link to post
Share on other sites



  • Posts

    • Saludos Abrahan estos son los errores al abrir el archivo,me dices si te va de algo o aun asi necesitas el codigo xml que uso para cargar la ribbon aunque como te comente me funciona muy bien en las maquinas donde no hice ninguna desinstalacion,lo que indica que el codigo xml no es el problema en si,por eso creo que se esta dndo una incompatibilidad por haber tenido antes office 2010,que opinas mi amigo
    • buenas tardes antes que nada agradecer por el tiempo que se toman en apoyarnos con nuestras dudas bueno mi consulta es la siguiente tengo una tabla y quisiera que al momento de escribir los datos en la celdas de arriba (algo como un buscador me filtre la información que estoy buscando) les dejo un ejemplo para que se pueda entender mejor espero puedan ayudarme muchas gracias. ejemplo.xlsx
    • ¡Hola a ambos! @joselica:  Quizá lo que te muestro en el adjunto te pone en perspectiva para lo que estás pidiendo.  En lo que adjunto, debes tener en cuenta que los cambios debes hacerlos en el rango manual (a la derecha), para que éste se vea reflejado en la parte izquierda. De igual forma, ten en cuenta la columna "orden", la cual determina el orden en ese día con respecto a los turnos.  ¡Comentas! ¡Bendiciones! Turnos.xlsx
    • Hola, les explico la problemática que tengo con una pequeña macro, esta Macro la ocupo para buscar y remplazar, me funciona muy bien con una condicionante, pero estoy intentando colocar 2 condicionantes y ahí es donde estoy atorado. Set h1 = Sheets("BD SALIDAS") Set b = h1.Range("A:A").Find(REMISION) If Not b Is Nothing Then End If Set d = h1.Range("C:C").Find(LOTE) If Not d Is Nothing Then h1.Cells(d.Row, "F") = (SALIDASLT) End If lo que busco es que la Macro encuentre el LOTE y que coincida con la REMISIÓN para poder sustituir el dato del TEXTBOX a la celda. agradezco mucho su ayuda.
    • Buenas tardes. Por favor necesito su ayuda para poder resolver lo siguiente: Necesitamos que busque la referencia de la Hoja UNO Celda F3 en otra hoja dos y concatenen todas las lineas D2_C2_G2 ambace a la referencia de la hoja uno Quedaría así. Gracias. Prueba..xlsx
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy