Crea tu Propio Facturador Desde Cero
Hola estimados seguidores de la página Excel Cuántico, en esta oportunidad vamos a desarrollar un FACTURADOR desde cero, para ello utilizaremos funciones y lenguaje de programación VBA.
Las funciones que vamos a utilizar las explicamos detalladamente en el tutorial que colocaremos líneas abajo, sin embargo, en el presente articulo vamos a detallar la codificación que hemos utilizado en nuestro facturador.
La codificación que utilizamos para generar el archivo PDF es la siguiente:
--------------------------------------------------------------------------------------------------------------------------
Sub Pdf()
Dim Dir As FileSystemObject
Dim RutaArchivo, RutaArchivo2, Linea, Archivo As String, Titulo As String
Dim Origen As Long
Dim Nombre As String, Hoja As String
Dim tx As Scripting.TextStream
Dim Ht As Worksheet
On Error Resume Next
If MsgBox("¿Seguro que quiere generar la generar el PDF?", vbYesNo + vbQuestion, "Generar PDF") = vbYes Then
Else
Exit Sub
End If
Set Dir = New FileSystemObject
RutaArchivo = ActiveWorkbook.Path & "\Comprobante"
Nombre = Application.InputBox("Nombre del Archivo", "Crear PDF")
Archivo = RutaArchivo & "\" & Nombre & ".pdf"
Origen = FreeFile
If Dir.FileExists(Archivo) = True Then
Kill Archivo
End If
RutaArchivo = Archivo
Hoja = ActiveSheet.Name
Set Ht = Worksheets(Hoja)
Ht.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Archivo, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox ("Se ha generado el PDF con éxito ruta: " & Archivo), vbInformation, Titulo
End Sub
