Printform Control aus den PowerPacks

Question

Hallo Leute,

ich möchte ein kleines und einfaches Formular einfach per PrintForm-Control aus den Powerpacks drucken.

Das funktioniert auch, aber leider kann ich das Formular der Printpreview-Anweisung nicht auf maximiert einstellen.

Gibt es dafür eine Lösung?

Hier meine bisherige Anweisung:

   Private Sub DruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DruckenToolStripMenuItem.Click
        Me.BackColor = SystemColors.Window
        TxtSumme1.BackColor = SystemColors.Window
        BtnDummy.Focus()
        MenuStripDefault.Visible = False
        Me.Refresh()
        With PrintForm1
            .Print()
        End With

        Me.BackColor = SystemColors.ButtonFace
        TxtSumme1.BackColor = SystemColors.ButtonFace
        MenuStripDefault.Visible = True
        TxtZvE.Focus()
    End Sub

Vielen Dank im Voraus.

Gruß Ahmed

Answer 1

Hallo Ahmed,

Mithilfe der Typumwandlung des PrintPreviewDialog in ein Form hast Du Zugriff auf die WindowState-Eigenschaft und kannst sie als Maximized festlegen. Ein Beispiel ist in folgendem Thread zu finden:
Maximize Print Preview?

DirectCast(printPreviewDialog1, Form).WindowState = FormWindowState.Maximized

Gruß,
Dimitar

---

Bitte haben Sie Verständnis dafür, dass im Rahmen dieses Forums, welches auf dem Community-Prinzip „IT-Pros helfen IT-Pros“ beruht, kein technischer Support geleistet werden kann oder sonst welche garantierten Maßnahmen seitens Microsoft zugesichert werden können.

Answer 2

Vielen Dank für die Info.

Dann kann ich ja jetzt noch eine Preview einbauen.

-----

Nachtrag:

Sorry, aber ich bekomme das einfach nicht hin.

Ich weiß gar nicht wie ich da ansetzen soll.

Gegenben ist das aktive zu druckende Formular.
Darin eingebetet ist das Control PrintForm1 (PowerPacks).
Dieses möchte ich zur Vorschau und zum sofortigen Drucken verwenden.

Mein Code für die Vorschau sieht derzeit wie folgt aus:

 Private Sub VorschauToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorschauToolStripMenuItem.Click
        Me.BackColor = SystemColors.Window
        TxtSumme1.BackColor = SystemColors.Window
        BtnDummy.Focus()
        MenuStripDefault.Visible = False
        Me.Refresh()

        With PrintForm1
            .PrintAction = Printing.PrintAction.PrintToPreview
            .Print(Me, PowerPacks.Printing.PrintForm.PrintOption.ClientAreaOnly)
        End With


        Me.BackColor = SystemColors.ButtonFace
        TxtSumme1.BackColor = SystemColors.ButtonFace
        MenuStripDefault.Visible = True
        TxtZvE.Focus()
    End Sub

Das funktioniert auch, bis auf die Tatsache, dass ich die Vorschau maximiert angezeigt haben möchte. Lieber wäre es mir sogar, dass ich die Vorschau sogar auf ein ganz anderes Formular umleite, da die PrintForm1 immer modal geöffnet wird, so dass die Farbrücksetzung immer erst nach dem Schließen der PrintForm1 erfoglt. Aber darauf kann ich notfals auch verzichten.

Vielleicht kannst du mir oder ein anderer, ja vielleicht noch einmal helfen.

Gruß A. Martens

Answer 3

Hallo Ahmed,

Wenn Du das Klicken auf die Maximieren-Schaltfläche vermeiden und die Seitenansicht per Code maximieren möchtest, so ist dies nicht mit der PrintForm-Klasse, sondern mit PrintDocument oder PrintPreviewDialog möglich. Für weitere Informationen verweise ich Dich auf diesen Thread:
PrintToPreview

Gruß,
Dimitar

---

Bitte haben Sie Verständnis dafür, dass im Rahmen dieses Forums, welches auf dem Community-Prinzip „IT-Pros helfen IT-Pros“ beruht, kein technischer Support geleistet werden kann oder sonst welche garantierten Maßnahmen seitens Microsoft zugesichert werden können.