Problem beim drucken von PictureBox

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen!

Ich habe beim drucken meiner PictureBox ein Problem. Bei dem unten stehenden Code druckt er zwar das Bild auf dem Drucker in der ersten Form aus, öffnet mir aber den CommonDialog nicht.

Beim gleichen Code mit einem anderen CommonDialog in der zweiten Form öffnet er mir den CommonDialog, aber er druckt den Inhalt nicht bzw. auf dem Blatt ist nichts drauf.

'-----------Graphen in Picture1 drucken

Public Sub cmdPrint_Click()
Dim BeginPage, EndPage, NumCopies, Orientation
Dim i As Integer

CommonDialog1.CancelError = True 'Cancel auf True setzen
On Error GoTo ErrHandler
cmdBeenden.SetFocus

CommonDialog1.ShowPrinter 'Dialogfeld „Drucken“ anzeigen

'Benutzerdefinierte Werte aus dem Dialogfeld abrufen
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
Orientation = CommonDialog1.Orientation = cdlPortrait

For i = 1 To NumCopies
Printer.PaintPicture Picture1.Image, 0, 0 'Drucken
Printer.EndDoc
Next
Exit Sub

ErrHandler:
’ Benutzer hat auf Abbrechen-Schaltfläche geklickt
Exit Sub
End Sub

Das ist komisch…

Kann mir da jemand helfen?

Gruß, Axel

#2

Hallo Axel,

Ich habe beim drucken meiner PictureBox ein Problem. Bei dem
unten stehenden Code druckt er zwar das Bild auf dem Drucker
in der ersten Form aus, öffnet mir aber den CommonDialog
nicht.

Du redest von zwei Formen. Hast Du auf jeder Form einen Commondialog? Oder versuchst Du den Commondialog der anderen Form anzusprechen und hast vergessen, den Namen der Form anzugeben?

Beim gleichen Code mit einem anderen CommonDialog in der
zweiten Form öffnet er mir den CommonDialog, aber er druckt
den Inhalt nicht bzw. auf dem Blatt ist nichts drauf.

Du druckst das .Picture. Ist da sicher auch etwas drin? Hast Du das geladen? Oder zeichnet Dein Programm das Bild erst in die PicBox? Dann ist da u.U. ger kein Picture sondern nur ein .Image und auch das erst nach .Autoredraw = True. Versuch mal das .Image zu drucken, statt .Picture.

Gruß, Rainer