Conocimientos Básicos

Acá te pego un ejemplo de impresión... este usa base de datos... tienes que cambiarle los recordset por tus variables
Private Sub cmdImprimir_Click()
Const TOP_MARGIN = 1400
Const LEFT_MARGIN = 1400
Dim titulo As String
Dim bottom_margin As Single
Dim db As Database
Dim qdef As QueryDef
Dim dbname As String
Dim selectAreas As String
Dim BeginPage, EndPage, NumCopies, i
' Establecer CancelError a True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' Presentar el cuadro de diálogo Imprimir
CommonDialog1.ShowPrinter
' Obtener los valores seleccionados por el usuario en el cuadro de diálogo
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
DoEvents
'Open the database.
dbname = bdPath
Set db = OpenDatabase(dbname)
Select Case SSTabEficiencia.Tab
Case 0
titulo = "Listado por empleado"
Set qdef = db.CreateQueryDef("", seleccionarSSTab)
Set rs = qdef.OpenRecordset(dbOpenSnapshot)
Case 1
titulo = "Listado por area"
Set qdef = db.CreateQueryDef("", seleccionarSSTab)
Set rs = qdef.OpenRecordset(dbOpenSnapshot)
Case 2
titulo = "listado de area de mejoras"
Set qdef = db.CreateQueryDef("", seleccionarSSTab)
Set rs = qdef.OpenRecordset(dbOpenSnapshot)
End Select
For i = 1 To NumCopies
bottom_margin = Printer.ScaleTop + Printer.ScaleHeight - 1440
Printer.CurrentY = TOP_MARGIN
Printer.CurrentX = 3000
Printer.Print titulo & vbTab & vbTab & "Fecha: "; Format$(Date) & vbTab & "hora: "; Format$(Time) & vbCr
Printer.CurrentX = LEFT_MARGIN
Printer.Print "---------------------------------------------------*---------------------------------------------------*---------------------------------------------------"
ImpresionDeCriterios
Printer.CurrentX = 3000
rs.MoveFirst
Do While Not rs.EOF
Printer.CurrentX = LEFT_MARGIN
ImpresionDeDatosSolapa
Rs. MoveNext
Loop
Rs. Close
Db. Close
' Finish printing.
Printer. EndDoc
Next i
Exit Sub
ErrHandler:
' El usuario ha hecho clic en el botón Cancelar
Exit Sub
End Sub

Muy buena respuesta, hace unos días nvestigando en otras fuentes en internet encontré lo que buscaba, gracias por tu tiempo. Al saber un poco más de Basic caí en cuenta que mis preguntas estaan bastante enredadas... Muchas Gracias.