Imprimir un picturebox

Hola, estoy graficando una función en un PictureBox, (por ejemplo una diagonal). El PictureBox tiene las siguientes propiedades:
ScaleMode = 0-User
Width = 8895
Height = 3015
ScaleTop = 0
ScaleLeft = 0
ScaleHeight = 100
ScaleWidth = 360 (este valor es por que son valores de giro de un motor, es decir 360°)
Este PictureBox lo quiero imprimir en Hoja tamaño "Carta". Me imprime sin ningún problema. El problema es que en la impresión, las lineas me aparecen demasiado gruesas y las lineas en angulo (Ej, Diagonal) me aparecen como cuadritos que suben en escalera. Existe algo o algún método que me imprima con mayor resolución, es decir que se parezca más a lo que había graficado en el PictureBox, es decir que no me haga como un zoom cuando paso del tamaño real (el picturebox tiene unos 10cm por 6 cm) al tamaño carta.
El procedimiento que uso para imprimir es el siguiente:
Private Sub command2_Click()
Dim PosicionXIncialEnHoja As Integer
Dim PosicionYIncialEnHoja As Integer
Picture1.Picture = Picture1.Image
PosicionXIncialEnHoja = 100
PosicionYIncialEnHoja = 100
Printer.PaperSize = vbPRPSLetter 'Tamaño carta, 216 x 279 mm
Printer.Orientation = vbPRORLandscape
Printer.PrintQuality = vbPRPQHigh
Printer.PaintPicture Picture1.Picture, PosicionXIncialEnHoja, PosicionYIncialEnHoja, Printer.ScaleWidth - 200, Printer.ScaleHeight - 200
Printer.EndDoc
End Sub
Muchas gracias por la ayuda.
Saludos
Alejandro
1

1 Respuesta

17.300 pts. DATOS PERSONALES: Nacionalidad: Argentina
Perdona por la demora.
Proba sacando (o modificando) la sig. linea:
Printer. ScaleWidth - 200, Printer. ScaleHeight - 200
Sino, entra a esta página:
http://www.vb-helper.com/howto_print_picture_large.html
Cualquier cosa avisame.
Espero que te sirva de ayuda, y no te olvides de ponerle puntaje a la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas