Esto es para FlexGrid, pero modificandolo...
Esto es para imprimir un flexgrid, pero modificando algo del codigo, podras imprimir en un dbgrid
s2 y s3
Sub Command1_Click()
'PAra imprimir un flexgrid:
On Error GoTo seguir
Dim intTamanho As Integer
Dim x As Integer
Dim primera As Boolean
primera = False
'Para indicar el numero de filas quiero en una pagina
Grid2.Rows = 45 'Grid1.rows - 1
Grid2.Cols = Grid1.Cols - 1 '11o las que tengas
For x = 0 To Grid1.Rows - 2 Step 44
For J = x To x + 44
For i = 0 To Grid1.Cols - 2
Grid1.Row = J
Grid1.Col = i
If primera = False Then
Grid2.Row = J
Else
Grid2.Row = J - 44 * Abs(x / 44)
End If
Grid2.Col = i
Grid2.Text = Grid1.Text
Next i
'If J > 10 Then Stop
Next J
seguir:
'Imprimir
Printer.Orientation = 2
intTamanho = Grid2.Width
Grid2.Width = Printer.Width
Printer.PaintPicture Grid2.Picture, 0, 0
Printer.EndDoc
Grid2.Width = intTamanho
primera = True
Grid2.Clear
Next x
MsgBox ("Impresión finalizada...")
End Sub