________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        'Screenshot erstellen
        'On Error GoTo Fehler
 
        Dim b As New Bitmap(SystemInformation.VirtualScreen.Width, _
          SystemInformation.VirtualScreen.Height)
        Using g As Graphics = Graphics.FromImage(b)
            g.CopyFromScreen(0, 0, 0, 0, b.Size)
        End Using
        b.Save("H:\screenshot_drucken.jpg", Imaging.ImageFormat.Jpeg)
 
        Dim oImage As Image = Image.FromFile("H:\screenshot_drucken.jpg")
 
        PictureBox1.Image = oImage
 
        With PrintDocument1
            ' Drucker für den Ausdruck festlegen
            '.PrinterSettings.PrinterName = "PDFCreator"
 
            ' Dokument-Title
            .DocumentName = "Print Picture"
 
            ' Ausdruck starten
            .Print()
        End With
 
 
        Me.Close()
 
 
    End Sub
    Private Sub PrintDocument1_PrintPage(ByVal sender As Object, _
  ByVal e As System.Drawing.Printing.PrintPageEventArgs) _
  Handles PrintDocument1.PrintPage
 
 
 
 
 
        Dim gr As Graphics = e.Graphics
 
        ' Verweis auf das Bild festlegen
        Dim oImage As Image = PictureBox1.Image
 
        ' Rechteck für den Ausdruck festlegen
        ' Position + Originalgröße
        Dim p As New Point(e.MarginBounds.Left, e.MarginBounds.Top)
        Dim r As New Rectangle(p.X, p.Y, oImage.Width, oImage.Height)
 
        ' Bild drucken
        gr.DrawImage(oImage, e.MarginBounds)
 
        gr.Dispose()
 
 
    End Sub
End Class

  Dim PrintWidth, PrintHeight As Integer                 'Größe Druckfläche
  Dim outWidth, outHeight, outLeft, outTop As Integer    'Druckgröße Bild 
  PrintWidth = 1024 : PrintHeight = 756                  'Anpassen für DIN A4 
 
  Dim bmp_in As New Drawing.Bitmap("Bilddatei original Screenshot")
  Dim bmp_out As New Drawing.Bitmap(PrintWidth, PrintHeight)
  Dim g As Drawing.Graphics = Drawing.Graphics.FromImage(bmp_out)
  g.Clear(Drawing.Color.White)
  'Positionieren und Zoomen
  outWidth = CInt(bmp_in.Width / bmp_in.Height * PrintHeight)
  outHeight = PrintHeight
  outLeft = CInt((PrintWidth - outWidth) / 2) : outTop = 0
  If outWidth > PrintWidth Then
     outHeight = CInt(bmp_in.Height / bmp_in.Width * PrintWidth)
     outWidth = PrintWidth
     outTop = CInt((PrintHeight - outHeight) / 2) : outLeft = 0
  End If
 
  'Bild in Fläche eintragen 
  g.DrawImage(bmp_in, outLeft, outTop, outWidth, outHeight)
  'Bild speichern
  bmp_out.Save("Ausgabebild", Drawing.Imaging.ImageFormat.Jpeg)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

     Me.PrintDocument1.DefaultPageSettings.Landscape = True

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

gr.DrawImage(oImage, e.MarginBounds.Inflate(50, 50))

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist