Cómo convertir un archivo de Excel a PDF a través de VB6

archivos Adobe PDF son documentos que se pueden distribuir a los lectores en Internet protegidos. Puede convertir varios tipos de archivo a PDF para proteger su trabajo de ser copiado o editado . Estos archivos se pueden convertir en la marcha utilizando programación Visual Basic . Esto es útil cuando usted tiene documentos de su servidor web que desea proteger y distribuir en línea. Visual Basic tiene bibliotecas internos utilizados para convertir el archivo de Excel a PDF. Instrucciones
1

Crea tu conexión con la hoja de cálculo Excel. Esto se hace usando un objeto de conexión que incluye el controlador de Excel . El código siguiente crea la conexión de Excel :

conec As ADODB.Connection

connString dévil como secuencia

connString = "Driver = { Microsoft Excel Driver ( * . Xls ) } ; DriverID = 790 ; Dbq = excelfile.xls ; "

conn.ConnectionString = connString
2

Recuperar la información de la hoja de cálculo de Excel. En este ejemplo, toda la información de la hoja de cálculo Excel se toma para convertir todo el archivo al formato PDF. El código siguiente copia todos los datos de Excel :

sql = "SELECT * FROM sheet1 "

excel_records = Recordset.Open sql , estafa, , adLockOptimistic , adCmdText

Reemplazar " Sheet1 " con el nombre de la hoja de cálculo en el archivo .
3

Crear el archivo PDF . Primero debe iniciar la clase PDF y especificar el archivo para el que se transfiere el contenido . El código siguiente crea y abre el archivo :

pdf Dim As New mjwPDF

pdf.PDFTitle = " Excel a PDF conversión"

pdf.PDFFileName = " converted.pdf "
4

Guardar la información de Excel en el archivo PDF . El siguiente código transfiere su información Excel :

pdf.PDFTextOut excel_records.ToString
5

Cierre los archivos de Excel y PDF para liberar los recursos utilizados para abrirlos. Esto es bueno para el rendimiento del servidor y libera los bloqueos del sistema operativo en los archivos. El siguiente código libera los archivos :

Set pdf = Nothing

Set conn = Nada