Frm_salidas_ventas (guardar pdf)(vba excel)
Lo mismo de cada pregunta nueva, MUCHAS GRACIAS por toda la ayuda.
Ahora que ya podemos insertar y borrar datos de clientes. Insertar y borrar artículos del listbox.
Ahora la siguiente duda.
Desde el cmb_guardar pdf poder guardar el frm_salidas_ventas en pdf (si se puede hacer, claro).
1 Respuesta
¡Gracias!
el form.
Esta es la opción que conozco, lo que hace es obtener una imagen de la pantalla y enviarla a una hoja, después esa hoja es guardada como PDF
Private Sub CommandButton2_Click()
'Por.Dante Amor
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set h1 = Sheets.Add
'h1.PageSetup.Orientation = xlLandscape
Application.SendKeys "(%{1068})"
Application. Wait Now + TimeValue("00:00:03")
DoEvents
h1.Paste
DoEvents
'h1.PrintOut Copies:=1, Collate:=True
DoEvents
ruta = ThisWorkbook.Path & "\"
arch = "form.pdf"
h1.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ruta & arch, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
h1.Delete
MsgBox "Pdf guardado"
End SubOtra opción es que diseñes la hoja igual al formulario, pases todo lo que tienes en el Form a la hoja y después guardes la hoja como pdf.
sal u dos
¡Gracias!
Coloco el código en el botón correspondiente. Y me da este fallo:
Doy a depurar y me lleva a esa línea de código.
Una sugerencia, que no se si se puede:
¿Se podría guardar ese form directamente en jpg y mandarla a la carpeta "SALIDAS PDF"?
También me da ese error.
P.D. En la sugerencia de antes tuvo una confusión.
¿Se podría guardar directamente en la carpeta "SALIDAS" ya sea como jpg o pdf?
El primer error puede ser porque tienes protegido el libro o invisible. Por eso no puede crear la hoja.
.
El segundo error es por tu excel. Revisa en tu excel si tienes la opción para guardar como pdf.
.
La única forma que conozco es copiar el form y pegarlo en una hoja, después podrías guardar la hoja la hoja como pdf, imprimir la hoja, guardar un rango de celdas como jpg. Y sí, si se puede guardar en una carpeta.
.
Primero resuelve lo del pdf, para que veas que mi macro funciona, valoras la respuesta y después le haces los ajustes que quieras.
¡Gracias!
Funciona.
Me guarda un archivo excel, en la carpeta donde tengo el proyecto, como PDF.
¿Se podría guardar con el nombre del txt_factura y mandarlo a la carpeta de "SALIDAS PDF"?
Perdón, me guarda un archivo PDF en la carpeta donde tengo el proyecto
Cambia esta línea
arch = "form.pdf"
Por esta
arch = txt_factura
¡Gracias!
Al final le hice unas modificaciones. Pude guardarlo en la carpeta que quería y con el valor del txt_factura.
Pero quite el boton cmb_guardar_pdf y lo inserte en el cmb_aceptar. Me preguntara si quiero guardar el pdf después de registrar la compra.
GRANDÍSIMA AYUDA! GRACIAS!.
If (MsgBox("¿Quieres guardar PDF de la venta?", vbQuestion + vbYesNo, "Kiko Games") = vbYes) Then
'Por.Dante Amor
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set h1 = Sheets.Add
'h1.PageSetup.Orientation = xlLandscape
Application.SendKeys "(%{1068})"
Application.Wait Now + TimeValue("00:00:03")
DoEvents
h1.Paste
DoEvents
'h1.PrintOut Copies:=1, Collate:=True
DoEvents
ruta = "D:\Descargas\Archivos Varios\Kiko\FJPG VIDEOGAMES\ENTRADAS PDF\"
arch = txt_factura
h1.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ruta & arch, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
h1.Delete
MsgBox "Pdf guardado", vbInformation, "Kiko Games"
Unload Me
Else
Cancel = 1
End If
