Macro imprimir y guardar en PDF
¿Cómo has estado amigo, espero que mejor que yo pues estoy con un pie enyesado por rotura de un hueso
Tengo esta macro tuya, lo que quisiera es que me aclararas si a parte de esta, necesito tener en el mismo libro otra para que además al mandar imprimir, (Ctrl +P) guarde en PDF
¿Línea guardarPDF completo, es la macro para PDF? Completo no pero guardarPDF ¿si?
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Act.Por.Dante Amor
continuar = vbYes
respuesta = MsgBox("¿Desea autoincrementar?", vbYesNoCancel)
Select Case respuesta
Case vbYes
Range("A18").Value = Range("A18").Value + 1 'Incrementa numero
Case vbNo
'No incrementa
Case vbCancel
'se cancela guardar el PDF y la impresión
Cancel = True
Exit Sub
End Select
'
respuesta = MsgBox("¿Desea guardar como PDF?", vbYesNoCancel)
Select Case respuesta
Case vbYes
ruta = Cells(1, 1).Value 'En A1 existirá la ruta para guardar el archivo
nombre = Cells(18, 1).Value & ".pdf" 'A 18 el nombre del archivo
If Right(ruta, 1) <> "\" Then ruta = ruta & "\"
completo = ruta & "Factura" & nombre 'Nombre de Factura + numero
If Dir(completo) = "" Then
guardarpdf completo
Else
reescribir = MsgBox("La factura ya existe con el nombre: " & vbCr & vbCr & _
completo & vbCr & vbCr & "Desea sobreescribir", _
vbQuestion + vbYesNoCancel, "VALIDA ARCHIVO")
Select Case reescribir
Case vbYes
guardarpdf completo
Case vbNo
'Se cancela el pdf pero continúa la impresión
Case vbCancel
'se cancela guardar el PDF y la impresión
Cancel = True
Exit Sub
End Select
End If
Case vbNo
'Se cancela el pdf pero continúa la impresión
Case vbCancel
'se cancela guardar el PDF y la impresión
Cancel = True
Exit Sub
End Select
ThisWorkbook.Save
End Sub
1 Respuesta
Y guarda a PDf tambien
por eso la linea guardarPDF completo.
Esta guardarPDF es el Call de la macro para que guarde en .PDF ¿si?
Alejecutar la macro me dice que
Error de coppilacion
No se ha definido sub o funcion y me apunta a la linea guardarpdf completo
y me marca lo de negrita.
espero tu respuesta que sea, Si o NO necesita una macro para cear PDF
Sí necesita la macro guardarpdf, debe estar en la misma respuesta que envié.
No recuerdo ya el enlace, si no lo encuentro, le asignare otra con ese nombre, ya veré
Gracias amigo Dante
Esta es la macro:
Sub guardarpdf(completo) 'Por.Dante Amor Application.EnableEvents = False ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=completo, _ Quality:=xlQualityStandard, IncludeDocProperties:=False, _ IgnorePrintAreas:=False, OpenAfterPublish:=False Application.EnableEvents = True End Sub
El enlace:
Quiero saber en el código VBA Excel, ¿Cuál es la ruta y nombre?
'
S a l u d o s
