kostenloser Webspace werbefrei: lima-city

[VB] Drucken

lima-city → Forum → Programmiersprachen → Basic

1. Autor dieses Themas

   kafke

   kafke hat kostenlosen Webspace.

   21:13, 6.3.2007

   Hi Leute,
   
   ich habe ein kleines Programm geschrieben, mit den ich ein bestimmtes Bild beschriften kann. Nun möchte ich dieses Bild mit der Beschriftung per Btn drucken. Kann mir da vielleicht jemand helfen??
   
   MfG und danke im voraus
   
   Kafke
   
   
   

2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

3. Autor dieses Themas

   kafke

   kafke hat kostenlosen Webspace.

   21:41, 6.3.2007

   scheint mir so, als wenn hier nicht so viele VB begeisterte rumhoppsen... naja, vielleicht meldet sich ja noch jemand. - ist echt dringend.
   
   MfG Kafke

4. cbhp

   Co-Admin

   cbhp hat kostenlosen Webspace.

   16:53, 7.3.2007

   Natürlich gibt es hier VB Begeisterte, aber man ist nicht den ganzen Tag hier...
   
   Hier der Code, um ein Bild zu drucken:
   
   

   Private Sub Button_Drucken_Click(ByVal sender As System.Object, _
         ByVal e As System.EventArgs) Handles cmdPrint.Click
   
           ' Das Dokument erstellen und um den Ereignisbehandler ergänzen.
           Dim MyDoc As New System.Drawing.Printing.PrintDocument
           AddHandler MyDoc.PrintPage, AddressOf MyDoc_PrintPage
           ' Den Anzeigenamen im Dialog bestimmen.
           MyDoc.DocumentName = "Beispieldokument"
   
           ' Dem Benutzer erlauben, Drucker und weitere Einstellungen einzustellen.
           Dim dlgSettings As New PrintDialog
           dlgSettings.Document = MyDoc
           Dim Result As DialogResult = dlgSettings.ShowDialog()
   
           ' Wenn der Benutzer auf OK geklickt hat, Dokument drucken.
           If Result = DialogResult.OK Then
               ' Diese Methode wird sofort beendet, nachdem sie aufgerufen wurde.
               ' Die PrintPage-Ereignisse werden asynchron ausgelöst.
               MyDoc.Print()
           End If
   
       End Sub
   
       Private Sub MyDoc_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
   
           Dim x As Single = e.MarginBounds.Left
           Dim y As Single = e.MarginBounds.Top
   
           ' Ein Bild malen.
           e.Graphics.DrawImage(Image.FromFile(Application.StartupPath & "\test.bmp"), x, y)
   
       End Sub

5. r*s

   17:48, 22.3.2007

   Wenn du VB 6.0 oder niedriger benutzt schau mal bei wwww.vbarchiev.net nach

6. u***********s

   19:02, 22.3.2007

   ich habe in visual basic studio 2005 express das selbe problem, hab damals ein programm geschrieben, und den inhalt sollte man ausdrucken können, war zumindest meine idee, nur mit der umsetzung des druck befehls klappte es nie. hab mich dann auch nichtmehr weiter damit beschäftigt, da es ein anfangsprojekt war,

7. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?