Hallo,
ich habe drei Fragen:
1. Kann ich die Leerzeichen gleichmäßig setzen? In dem erzeugten PDF ist der Abstand irgendwie nicht gleichmäßig (siehe Bild). Ich vermute das die Leerzeichen aus der Funktion
2. Kann ich statt der
3. Kann ich aus einen Array den längsten String ermitteln? Und wenn wie?
zu Frage 1-2:
zu Frage 3:
ich habe drei Fragen:
1. Kann ich die Leerzeichen gleichmäßig setzen? In dem erzeugten PDF ist der Abstand irgendwie nicht gleichmäßig (siehe Bild). Ich vermute das die Leerzeichen aus der Funktion
Space
nicht gleich groß sind wie Buchstaben bzw. Zahlen.2. Kann ich statt der
Space
Funktion auch etwas anderes verwenden wie TAB?3. Kann ich aus einen Array den längsten String ermitteln? Und wenn wie?
zu Frage 1-2:
VB.NET-Quellcode
- Dim a As String = "Menge: "
- Dim b As String = "Einheit: "
- Dim c As String = "Einzelbetrag: "
- Dim d As String = "Rabatt / Aufschlag: "
- Dim f As String = "MwSt.: "
- Dim g As String = "Summe Netto: "
- Dim h As String = "Summe Brutto: "
- Dim j As String = "Eigenanteil für Position: "
- Dim k As String = "Zuzahlung für Position: "
- Using stream As New FileStream(datei, FileMode.Create)
- Dim pdf As New Document(PageSize.A4.Rotate)
- Dim x As Integer = j.Count
- PdfWriter.GetInstance(pdf, stream)
- pdf.Open()
- pdf.Add(New Paragraph(a & Space(x - a.Count) & Menge))
- pdf.Add(New Paragraph(b & Space(x - b.Count) & Einheit))
- pdf.Add(New Paragraph(c & Space(x - c.Count) & Einzelbetrag))
- pdf.Add(New Paragraph(d & Space(x - d.Count) & Rabatt))
- pdf.Add(New Paragraph(f & Space(x - f.Count) & MwSt))
- pdf.Add(New Paragraph(g & Space(x - g.Count) & Netto))
- pdf.Add(New Paragraph(h & Space(x - h.Count) & Brutto))
- pdf.Add(New Paragraph(j & Space(x - j.Count) & Eigenanteil))
- pdf.Add(New Paragraph(k & Space(x - k.Count) & Zuzahlung))
- pdf.Close()
- stream.Close()
- End Using
zu Frage 3:
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Sam85“ ()