Guten Abend zusammen,
ja wieder mal das drucken etwas spezieller!
also habe da eine Datengebundene Datagridview bzw. eine Datatable in der ich unter anderem eine Spalte "Pfad", und eine Spalte "Bildname" habe
die Image ausdrucken ist kein Problem, nur wie ich mir die Seite vorstelle das ist das Problem
es passen theoretisch 3 Zeilen auf die Seite (Hochformat) die Image aus dem Pfad sollen nebeneinander gedruckt werden
darunter soll ein Stempel gedruckt werden und mit einer Abschlusslinie soll die Datenzeile beendet werden. Nächste 4 Bilder aus dem Pfad etc.
so habe ich schon mal meine ersten wir Bilder gezeichnet und nun klemmt es bei mir
schreibe ich einen neuen Datensatz in die Tabelle wird das auch in die gleiche Zeile gedruckt da müsste nun was passieren?
Danke für eure Ideen dazu
'--------------------------------------------------------------
Dim imgeLocation As Point = New Point(50, 180)
Dim Belegstempel As Point = New Point(50, 370)
Dim BelegSize As Size = New Size(150, 22)
Dim x As Integer, y As Integer
Dim R As Rectangle
Dim Stempel As String
'--------------------------------------------------------------
Try
For i As Integer = 0 To DS.tabelle.Rows.Count - 1
Dim row As DataRow = DS.tabelle.Rows(i)
Dim bildpfad As String = row("Pfad").ToString
Dim Stempeldate As Date = row("Stempeldatum").ToString
Stempel = Format(Stampeldate, "ddd-dd.MM.yyyy HH:mm")
'Bildpfad prüfen
If IsBildPfad(bildpfad) = True Then
Dim img As Image = Resize_Image(New Bitmap(Image.FromFile(bildpfad)))
e.Graphics.DrawImage(img, imgeLocation)
'Berechnen der Position der nächsten img
imgeLocation.X += img.Width + 2
'Berechnen der Position des nächsten Belegstempel
Belegstempel.X += img.Width
R = New Rectangle(Belegstempel.X + (x - 1) * _
BelegSize.Width, _
Belegstempel.Y + (y - 2) * BelegSize.Height, _
BelegSize.Width, BelegSize.Height)
e.Graphics.FillRectangle(New SolidBrush(HeadColor), R) _
'Belegstempel Farbe
e.Graphics.DrawRectangle(LightGrayPen, R) _
'Rahmen Belegstempel
e.Graphics.DrawString(Stempel, f8, Brushes.White, R, sf) _
'Text Belegstempel
'Abschlusslinie drucken
e.Graphics.DrawLine(p1, 50, Belegstempel.Y + 10, 718, _
Belegstempel.Y + 10)
Else
'?
End If
Next i
Catch ex As Exception
End Try
e.Graphics.Dispose()
p1.Dispose() so soll es nachher ungefähr aussehen:
 |