Imprimir hoja activa y crear pdf luego

Ante todo muchos Saludos a los miembros de TodoExpertos

Tengo un archivo que es un formulario con varias hojas con diferente información las cuales según voy llenando la imprimo sin importar su contenido siempre imprimo pag 1 y si la información es más pag 1y 2 de cada hoja, tengo un nombre en cada hoja son como 10 hojas pero eventualmente solo imprimo las que modifico, el nombre del archivo es diferente cada vez que lo genero, e intentado usando algunas macros para generar los pdf pero no logro hacer lo que necesito, que cada vez que mando imprimir a más de imprimir en papel se genere un pdf de la hoja y si imprimo otra esta se adjunte a la anterior creada dado que el nombre del achivo es diferente cada vez que lo abro podemos usar el nombre del archivo para guardar el pdf adjuntando las hojas que imprima, también tengo una macro antes que se imprima en papel esta toma algunas celdas seleccionadas de la hoja activa y las copia en un archivo de texto y los adjunta permanentemente en un archivo determinado, no se si podría aprovechar y continuar con la instrucción del pdf aquí o en otro lado

Gracias de antemano

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Archivotxt As String

Set fs = CreateObject("Scripting.FileSystemObject")
Archivotxt = "C:\windows\copia\data\dato2.txt" '<---Ruta y nombre del Txt a crear

If Len(Dir(Archivotxt)) = 0 Then
Set a = fs.CreateTextFile(Archivotxt, True)
a.Close
End If
Set a = fs.OpenTextFile(Archivotxt, 8)
texto = Range("T17").Value & " ; " & ActiveWorkbook.Name & " ; " & ActiveSheet.Name & " ; " & Range("f15").Value & " ; " & Format(Range("F17").Value, "dd/mm/yyyy") & " ; " & Format(Range("j17").Value, "h:mm:ss AM/PM")
a.WriteLine (texto) '<-----celda que se escribe en el Txt, se escribe en un renglon del txt
a.Close
Set fs = Nothing
Set Archivo = Nothing
End Sub