Visual Basic - Imprimir

Life is soft - evento anual de software empresarial
 
Vista:

Imprimir

Publicado por Hugo Contreras (4 intervenciones) el 03/02/2003 19:08:27
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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Imprimir

Publicado por fernando.gomez (143 intervenciones) el 03/02/2003 22:42:48
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Imprimir

Publicado por fernando.gomez (143 intervenciones) el 03/02/2003 22:43:02
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar