Iremart.es

Drone paso a paso Ardupilot, Visual studio y otros lenguajes de programación

  • Estadísticas

    • 200Lecturas hoy:
    • 103Lecturas ayer:
    • 127577Total de visitas:
    • 78Hoy:
    • 83Ayer:
    • 667La semana anterior:
    • 1813Visitantes por mes:
    • 84Visitantes por día:
    • 1Visitantes conectados:

Imprimir sin crystal

Posted by skskynet on 30th mayo 2010

hay que declarar printdocument, printpreview, printdialog

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

imprime un rectangulo en la x=30, y=30 y de 750 de ancho x 100 de alto

e.Graphics.DrawRectangle(System.Drawing.Pens.Blue, 30, 30, 750, 100)

imprime una imagen a tamano original en la posicion x=100 e y=100

e.Graphics.DrawImage(Image.FromFile(“c:\8.jpg”), 100, 100)

para formatear el texto a imprimir

Dim drawFont As New System.Drawing.Font(“Arial”, 48, FontStyle.Bold)

Dim drawBrush As New System.Drawing.SolidBrush(System.Drawing.Color.Blue)

Dim drawFormat As New System.Drawing.StringFormat()

para que imprima de iqz a derec

drawFormat.FormatFlags = StringFormatFlags.DirectionRightToLeft

imprime el texto con el formato establecido

e.Graphics.DrawString(“prueba”, drawFont, drawBrush, 30, 300, drawFormat)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
PrintPreviewDialog1.Document = PrintDocument1
PrintPreviewDialog1.ShowDialog()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

Tags:
Posted in Visual Studio | No Comments »