vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Barcode aus zahlen generieren und in PDF einfügen 
Autor: p24
Datum: 22.06.17 12:41

Hallo liebe Community,
ich habe mir mal wieder ein kleines Tools gebastelt und stehe nun vor einem Problem. Dieses ist folgendes, ich manipuliere ein PDF Dokument mit itextsharp, dass klappt alles super. Für das letzte Eingabefeld müsste ich Zahlen eingeben und diese als Barcode ausgeben. Leider habe ich zu wenig wissen um dies zu realisieren. Vllt. kann mir jemand einen Denkanstoß oder eine Lösung bieten?


Vielen Dank im Voraus

p24

Oberfläche des Programms:
http://panorama24.eu/form1.png

Fertiges erzeugtes PDF des Programms:
http://panorama24.eu/form2.png

Projekt Download:
http://panorama24.eu/LabelGEN.zip


Hier mein Code:

Imports iTextSharp.text.pdf
Imports iTextSharp.text
Imports System.IO
 
Public Class Form1
 
    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Label2.Click
 
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnclose.Click
        Me.Close()
    End Sub
 
    Private Sub btngen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btngen.Click
 
Dim oldFile As String = "templates/template.pdf"
        Dim newFile As String = "output/etikett.pdf"
 
        Dim reader As New PdfReader(oldFile)
        Dim size As Rectangle = reader.GetPageSizeWithRotation(1)
        Dim document As New Document(size)
 
        Dim fs As New FileStream(newFile, FileMode.Create, FileAccess.Write)
        Dim writer As PdfWriter = PdfWriter.GetInstance(document, fs)
        document.Open()
        Dim cb As PdfContentByte = writer.DirectContent
 
        Dim bf As BaseFont = BaseFont.CreateFont(BaseFont.HELVETICA, _
          BaseFont.CP1252, BaseFont.NOT_EMBEDDED)
        cb.SetColorFill(BaseColor.BLACK)
        cb.SetFontAndSize(bf, 16)
 
        cb.BeginText()
        Dim platz As String = txtplatz.Text
        Dim name As String = txtname.Text
        Dim nr As String = txtnr.Text
        Dim code As String = txtcode.Text
 
        cb.ShowTextAligned(1, platz, 240, 204, 0)
        cb.ShowTextAligned(1, name, 240, 145, 0)
        cb.ShowTextAligned(1, nr, 240, 125, 0)
        cb.ShowTextAligned(1, code, 240, 140, 0)
        cb.EndText()
 
        Dim page As PdfImportedPage = writer.GetImportedPage(reader, 1)
        cb.AddTemplate(page, 0, 0)
 
 
        document.Close()
        fs.Close()
        writer.Close()
        reader.Close()
 
 
        MsgBox("Label erfolgreich gespeichert.", MsgBoxStyle.Information, _
Title:="Information")
 
 
 
    End Sub
 
    Private Sub btnprint_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnprint.Click
 
        Dim path = System.IO.Path.Combine(Application.StartupPath, _
          "output/etikett.pdf")
        Process.Start(path)
 
    End Sub
End Class


Beitrag wurde zuletzt am 22.06.17 um 12:45:11 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Barcode aus zahlen generieren und in PDF einfügen2.483p2422.06.17 12:41
Re: Barcode aus zahlen generieren und in PDF einfügen1.515stefan22027322.06.17 13:40
Re: Barcode aus zahlen generieren und in PDF einfügen1.377p2423.06.17 07:04
Re: Barcode aus zahlen generieren und in PDF einfügen1.473stefan22027323.06.17 08:26
Re: Barcode aus zahlen generieren und in PDF einfügen1.379p2423.06.17 08:29
Re: Barcode aus zahlen generieren und in PDF einfügen1.383stefan22027323.06.17 08:35
Re: Barcode aus zahlen generieren und in PDF einfügen1.395p2423.06.17 08:36
Re: Barcode aus zahlen generieren und in PDF einfügen1.378p2426.06.17 10:32
Re: Barcode aus zahlen generieren und in PDF einfügen1.348stefan22027326.06.17 10:56
Re: Barcode aus zahlen generieren und in PDF einfügen1.337stefan22027326.06.17 11:12
Re: Barcode aus zahlen generieren und in PDF einfügen1.323p2426.06.17 11:50
Re: Barcode aus zahlen generieren und in PDF einfügen1.343stefan22027326.06.17 12:05
Re: Barcode aus zahlen generieren und in PDF einfügen1.328stefan22027326.06.17 12:09
Re: Barcode aus zahlen generieren und in PDF einfügen1.400p2426.06.17 13:06
Re: Barcode aus zahlen generieren und in PDF einfügen1.312stefan22027326.06.17 14:02
Re: Barcode aus zahlen generieren und in PDF einfügen1.321p2426.06.17 14:31
Re: Barcode aus zahlen generieren und in PDF einfügen1.329p2427.06.17 08:38
Re: Barcode aus zahlen generieren und in PDF einfügen1.341stefan22027327.06.17 11:17
Re: Barcode aus zahlen generieren und in PDF einfügen1.463HenryV27.06.17 14:32
Re: Barcode aus zahlen generieren und in PDF einfügen1.530p2427.06.17 14:57
Re: Barcode aus zahlen generieren und in PDF einfügen1.399HenryV27.06.17 15:51

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel