Visual Basic - Imprimir

Como hacer para imprimir, pero dandole formato (tamaño, margenes), es decir q imprima en una pagina tipo carta, el contenido de un flexgrid y q en caso de q la cantidad de datos sea muy grande imprima en diferentes paginas automaticamente.

Declaras un objeto como Printer y llenas sus propiedades...

Private Function SendToPrint() As Integer
On Error Resume Next

Dim obPrnt As Printer
Dim msg As VbMsgBoxResult
Const Landscape = 0
Const Portrait = 1

obPrnt.Font.Name = "Courier New"
obPrnt.Width = 100

msg = MsgBox("Desea la orientacion del papel horizontal?", vbYesNo)
Select Case msg
Case vbYes
obPrnt.Orientation = Landscape
Case vbNo
obPrnt.Orientation = Portrait
Case Else
SendToPrint = -1
Exit Function
End Select

Rem Y demas cosas que quieras

obPrnt.Print

If Err.Number Then
SendToPrint = -1
Else
SendToPrint = 0
End If

Exit Function

Declaras un objeto como Printer y llenas sus propiedades...

Private Function SendToPrint() As Integer
On Error Resume Next

Dim obPrnt As Printer
Dim msg As VbMsgBoxResult
Const Landscape = 0
Const Portrait = 1

obPrnt.Font.Name = "Courier New"
obPrnt.Width = 100

msg = MsgBox("Desea la orientacion del papel horizontal?", vbYesNo)
Select Case msg
Case vbYes
obPrnt.Orientation = Landscape
Case vbNo
obPrnt.Orientation = Portrait
Case Else
SendToPrint = -1
Exit Function
End Select

Rem Y demas cosas que quieras

obPrnt.Print

If Err.Number Then
SendToPrint = -1
Else
SendToPrint = 0
End If

End Function