Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

druckvorlage erstellen
Autor: Erichbru
Datum: 13.04.25 12:02
Hallo zusammen, ich beschäftige mich derzeit mit dem drucken von "Vorlagen", die ich auch drucken kann bei bedarf. dies ist bisher mein Versuch, der grob auch funktioniert jedoch nicht ganz wie es aussehen sollte dh in meiner Maske soll nach angaben der breite und höhe die anzahl benötigter Spalten (mittig verteilen auf der Seitenbreite '21.0' cm) die anzahl benötigter Zeilen (gleichmäßig verteilen auf die Seitenhöhe '29.7' cm) linker Rand rechter Rand oberer Rand unterer Rand daraus ergibt sich die benötigte Anzahl spalten und zeilen Richtig ? ich gebe also breite (bxh) vor und per buttom berechnet man die Anzahl der benötigten Spalten und Zeilen die per Schleife im Druckbereich gezeichnet werden sollen(ähnlich wie etiketten, labels ...) leider funktioniert das bei mir nicht immer schön zentriert auf die Seite hier mal mein Ergebnis als Bild (Druckvorschau) wer hat einen erfolgreichen Tipp meinen Code bitte nicht kommentieren, ist Testphase und sicher unschön anzusehen für den einen oder anderen. Das ist mir schon klar! für alles andere Dankeschön und einen schönen Palmsonntag wünsche ich dem Forum hier   printdoc_PrintPage(sender As Object, e As PrintPageEventArgs) Handles printdoc.PrintPage Dim g = e.Graphics Dim rectSize As New Size(nudblockbreite.Value, nudblocklaenge.Value) 'countcol = Math.Round(Druckbereich.Width / nudblockbreite.Value, 0) 'countrow = Math.Round(Druckbereich.Height / nudblocklaenge.Value, 0) countcol = nud_numberOfCOL.Value countrow = nud_numberOfROWS.Value Dim startX As Integer = Druckbereich.Left Dim startY As Integer = Druckbereich.Top Dim DistLinks As Integer = nudlinker_rand.Value Dim DistOben As Integer = nudoberer_rand.Value Dim DGV_Font As Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Dim HeaderColor As System.Drawing.Color = Color.LightGray Dim Header_Color As System.Drawing.Color = Color.LightCyan Dim b As Pen = New Pen(Color.Blue) Dim p As Pen = New Pen(Color.Red) Dim sf As StringFormat = StringFormat.GenericTypographic sf.Alignment = StringAlignment.Center sf.LineAlignment = StringAlignment.Center Dim seitenrahmen = New Rectangle(Druckbereich.Left, Druckbereich.Top, Druckbereich.Width, Druckbereich.Height) 'Druckbereich der Seite e.Graphics.DrawRectangle(b, seitenrahmen) e.Graphics.DrawString(seitenrahmen.ToString, DGV_Font, Brushes.Black, seitenrahmen) Dim TempLeft As Single Dim TempTop As Single For I As Integer = 0 To countcol - 2 TempLeft = startX + rectSize.Width * CSng(I) For J As Integer = 0 To countrow - 2 TempTop = startY + rectSize.Height * CSng(J) g.DrawRectangle(New Pen(Color.Red, 1), TempLeft, TempTop, rectSize.Width, rectSize.Height) Next Next End Sub

druckvorlage erstellen

199

Erichbru

13.04.25 12:02

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen