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

archivos PDF de Adobe están protegidos documentos se pueden distribuir a los lectores a través de Internet. Puede convertir varios tipos de archivos a PDF para proteger su trabajo de ser copiado o editado. Estos archivos se pueden convertir en la marcha usando programación Visual Basic. Esto es beneficioso cuando se tiene documentos en 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 Cree su 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 siguiente código crea la conexión de Excel:

Dim conn Como ADODB.Connection
connString Dim 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 Excel. En este ejemplo, toda la información de la hoja de cálculo de 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 siguiente código crea y abre el archivo:

pdf Dim como nuevo mjwPDF
pdf.PDFTitle = "Excel para la conversión de PDF"
pdf.PDFFileName = "converted.pdf"

4 Guardar la información de Excel para el archivo PDF. El siguiente código transfiere sus datos de Excel:

pdf.PDFTextOut excel_records.ToString

5 Cierre los archivos PDF y Excel 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:

Conjunto pdf = Nada
Set conn = Nada