| |
Visual-Basic Einsteigerbmp nach pdf | | | Autor: Paulix1 | Datum: 15.01.18 15:31 |
| Hallo,
ich suche ein Tool zum konvertieren von bmp zu pdf Dateien.
Besonderheit:
Wenn möglich sollen mehrere bmp in einer PDF gebunden werden können.
Wer kann mir einen Tipp geben?
Schon mal Danke dafür! | |
Re: bmp nach pdf | | | Autor: Franki | Datum: 16.01.18 02:16 |
| Hallo,
Adobe Acrobat ist da eigentlich die erste Wahl, da kannst du im Windows Explorer eine odere mehrere Dateien markieren und dann per rechter Maustaste entweder einzeln in PDF oder auch gesammelt in eine PDF umwandeln.
Auch diverse Grafikprogramme können direkt aus Bildern PDF Dateien generieren, auch im Batch Betrieb wie z.B. Programme von Corel.
Was genau suchst du denn? Beachte, dass die Qualität unter Umständen leiden kann weil der User bei der Anzeige von PDF Dateien je nach Reader diverse Einstellmöglichkeiten hat. Und ein Bild wird immer ein Bild bleiben, Text in einem Bild zu markieren usw. geht nicht. Auch eine Kopierschutz hast du nicht wenn du das Bild in einer PDF verpackst.
Wenn du jedoch programmtechnisch gesehen eine PDF erzeugen möchtest, dann hast du auch dort diverse Möglichkeiten. Am einfachsten ist es einen vorhandenen Drucker mit den Daten zu füttern der PDF Dateien erzeugen kann. Dem ist es egal welches Ausgangsformat im vorgeworfen wird.
Gruß
Frank | |
Re: bmp nach pdf | | | Autor: effeff | Datum: 16.01.18 16:28 |
| Das kannst Du z. B. mit dem kostenlosen FastStone Image Viewer erledigen. Nach dem Öffnen eines Verzeichnisses markierst Du dort die gewünschten Bilder und drückst "ALT+M" oder klickst in der Menüzeile auf "Erzeugen", "Mehrseiten-TIFF/PDF". Du kannst nun aus "Mehrseiten-TIFF", "PDF-Format" und "Animierte Gif" auswählen und nimmst dort das PDF-Format. Nach einem Klick auf "Erzeugen" wirst Du gefragt, wohin Deine PDF-Datei gespeichert werden soll und dann geht die Konvertierung los. Fertig!
EALA FREYA FRESENA | |
Re: bmp nach pdf | | | Autor: Franki | Datum: 20.01.18 04:03 |
| Hallo,
die Frage ist aber immer noch, ob und bzw. warum aus Grafiken PDF Dateien erzeugt werden sollen.
Und ob unter Tool etwas zu vertehen ist, was in VB verwendet werden kann oder eine Software die unter Windows an sich läuft. Vielleicht gibt es ja noch eine Antwort...
Gruß
Frank | |
Re: bmp nach pdf | | | Autor: Franki | Datum: 21.01.18 03:55 |
| Hallo effeff
Zitat: | |
Ich habe das so verstanden, dass eine Software gesucht wurde,
die das erledigen kann. BMP ist ein Format, welches von
Windows benutzt wird, also können wir davon ausgehen, dass
Windows das genutzte Betriebssystem ist. | |
Von Windows als Betriebssystem bin ich auch ausgegangen.
Aber BMP ist ja inzwischen nicht mehr ein wirklich gängiges Format. Auch die mir bekannten Scanner erzeugen im Automatikmodus bzw. über deren Tasten eher *.jpg Dateien als *.bmp Dateien.
Klar gibt es die verschiedensten Tools um Dateiformate umwandeln zu können bzw. PDF aus diversen Quellen zu erzeugen. (Du hast ein Beispiel genannt)
Aber meine Frage zielte darauf ab, ob das evtl. auch programmiertechnisch gesehen erfolgen kann/soll schon an der Quelle (also dem Scanner z.B.) Und auch das geht wenn ein Grafikprogramm verwendet wird welches VBA fähig ist wie z.B. die Probramme von Corel. Damit kann man aus seiner Anwendung heraus Corel steuern und alles weiter per VBA regeln. Auch dann wenn die eigene Anwendung in VB6/VB.NET geschrieben ist.
Gruß
Frank | |
Re: bmp nach pdf | | | Autor: Paulix1 | Datum: 21.01.18 09:42 |
| Hallo Frank und weitere Beitragsleser,
zur Erläuterung:
In 2002 haben wir begonnen, Dokumente mit einem Flachbettscanner zu scannen.
Die Scanns wurden damals nur in BMP Dateien abgelegt.
Es wurden mehr und mehr Scann Dateien und es entstand eine MdB Datenbank zur Verwaltung.
Das System lies es auch zu, mehrseitige Dokumente zu Klammern und damit in einem Vorgang zu drucken iud per Mail zu versenden.
Das läuft bisher fehlerfrei mit ca. 15000 Seiten.
Nun wurde ein Multifunktionsdrucker als Ersatz für den Scanner beschafft.
Dieser liefert nun PDF Dateien.
Da kommen die Vorzüge des PDF zum Vorschein. Es braucht nicht mehr bei mehrseitigen Dokus
das Klammern. pdf lässt mehrere Seiten in einer Datei zu.
PDF wird über Reader RD gedruckt und per Mail versandt.
Neue Vorgänge werden nun in PDF Format eingebunden.
Es wäre nun schön auch die alten Scanns auch auf das PDF umzustellen, damit ist wieder ein einheitliches Handling erreicht.
Da es aber 15000 Seiten sind, ist eine Automatisierung zwingend.
Deshalb die Suche nach einer derartigen Lösung.
Einen schönen Sonntag
Bernhard | |
Re: bmp nach pdf | | | Autor: markusxy | Datum: 21.01.18 20:22 |
| http://www.debenu.com/products/development/debenu-pdf-library-lite/ | |
Re: bmp nach pdf | | | Autor: Franki | Datum: 22.01.18 02:41 |
| Hallo Bernhard,
ok, ich verstehe was du machen möchtest.
Schau dir mal Nuance Paperport an, das sollte auch das können was du brauchst.
Ein Scan ist und bleibt ja erst mal ein Bild, das liegt in der Natur der Sache. Aber Paperport kann bei der Umwandlung von vorhandenen Dateien oder direkt beim Scannen die Ergebnisse (PDF Datei) auch gleich in durchsuchbare bzw. editierbare PDF umwandeln. Mehrseitige PDF Dateien sind kein Thema, das funktioniert beim Scannen einwandfrei.
Bei der nachträglichen Umwandlung von 15000 Dateien ist es bei dir aber mit Sicherheit nicht so, dass alle Dateien in eine einzige PDF Datei umgewandelt werden sollen und auch nicht so, dass es 15000 PDF Dateien gebgen soll. Da ist wahrscheinlich Handarbeit (egal mit welchem Tool) anesagt.
Bei meinem Multifunktionsdrucker war eine Light Version von Paperport dabei, die funktioniert hervorragend. Es gibt von der Professional Version aber auch eine kostenlose 30 Tage Version, vielleicht kann die mehr und die 30 Tage sollten für deine einmalige Umwandlung der 15000 Dateien ja reichen.
Nur so als Hinweis zum schon enthaltenen Link...
Gruß und viel Erfolg,
Frank | |
Re: bmp nach pdf | | | Autor: effeff | Datum: 28.01.18 10:51 |
| Ich habe noch mal eine Nachfrage dazu: Wie sind denn die 15000 BMP-Dateien abgelegt? Sind jeweils die zusammen gehörigen in einem Verzeichnis abgelegt, dessen Name man als Name der zu erstellenden PDF-Datei nutzen könnte?
Ich habe ähnliche Anforderungen. Ich habe 300 GB an Scans, die im TIF-Format vorliegen. Ich habe also ein Tool geschrieben, was rekursiv alle Unterverzeichnisse eines Stammverzeichnisses durchgeht und die TIF-Dateien in JPG-Dateien umwandelt, wobei die TIF-Dateien entfernt werden.
Ein zweites Tool geht jetzt alle Unterverzeichnisse dieses Stammverzeichnisses durch und erstellt aus den daraus befindlichen JPG-Dateien eine PDF-Datei, die den Namen des Unterverzeichnisses in bereinigter Form beinhaltet. Bereinigt haißt hier, dass ich auf Leer- und Sonderzeichen im Dateinamen verzichte. Die erstellten PDF-Dateien werden in einem bestimmten Verzeichnis zusammengeführt und die Unterverzeichnisse am Schluss gelöscht.
EALA FREYA FRESENA | |
Re: bmp nach pdf | | | Autor: Paulix1 | Datum: 10.03.18 16:50 |
| Hallo,
ich habe mich für die Word variante entschieden.
Das geht grundsätzlich gut.
Leider macht mir Word Probleme.
Wenn ich Word bei Application.Quit beende, so lässt sich Word nicht mehr für eine weitere
Konvertierung starten.
Wenn aber das VB Programm beendet wird, so kann ich einmalig wieder kovertieren.
Mit der Bitte um einen Hinweis.
Hier der Codeauszug:
Dim wApp As Object
Set wApp = CreateObject("word.Application")
With wApp
.Application.Visible = True
.Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
Selection.InlineShapes.AddPicture FileName:="D:\1_Scann\b170.jpg", LinkToFile:=False, SaveWithDocument:=True
.ActiveDocument.SaveAs2 "D:\1_scann\a1.docx"
.Application.Quit
End With | |
Re: bmp nach pdf | | | Autor: markusxy | Datum: 10.03.18 17:49 |
| So schaut die Schnittstelle der Quit Methode aus:
Ausdruck.Quit(SaveChanges, Format, RouteDocument) Ein Blick in die Word VBA Hilfe könnte weiterhelfen.
Vielleicht liegst aber auch an was anderem.
Beitrag wurde zuletzt am 10.03.18 um 17:51:44 editiert. | |
Re: bmp nach pdf | | | Autor: Souffleurlos | Datum: 10.03.18 19:42 |
| Hi ;)
das ist so, weil das Objekt wApp noch existiert. Du hast mit .QUIT ja nur eine Methode bedient, aber das Objekt noch nicht abgeschossen. Der nächste Aufruf von Word erzeugt eine weitere Instanz in der Documents Collection.
Set wApp = Nothing
fehlt. | |
Re: bmp nach pdf | | | Autor: Franki | Datum: 11.03.18 02:14 |
| Hallo,
Zitat: | |
ich habe mich für die Word variante entschieden.
Das geht grundsätzlich gut.
Leider macht mir Word Probleme.
| |
Na ja, so gut scheint es ja dann doch nicht zu gehen.
Aber wenn ich mich recht erinnere wolltest du eine *.bmp (Also Grafik) in *.pdf integrieren.
Was in aller Welt hat denn eine Textverarbeitung wie Word damit zu tun? Die ist doch für so etwas völlig ungeignet bzw. gar nicht gedacht. Word kann zwar mit Bildern und auch PDF Dateien umgehen das ist klar, aber es ist und bleibt eine Textverarbeitung.
Und wie kommt man auf die Idee das so zu probieren?
Man nehme Acrobat lese die Dateien (Bilder) ein und schon hat man eine PDF Datei die Bilder enthält.
Klar kann auch Word PDF Dateien erzeugen, diverse andere Programme auch, aber vergleiche mal das Ergebnis, du wirst die Unterschiede sehr schnell feststellen können, besonders wenn es sich um viele bzw. große Dateien handelt.
Gruß
Frank | |
Re: bmp nach pdf | | | Autor: Paulix1 | Datum: 11.03.18 09:52 |
| Hallo Franki,
ich habe mit dem Acrobat Support kontakt aufgenommen, es gibt kein Acrobat Modul,
welches per Kommandozeile die bmp oder jpg einlesen kann und als PDF speichert.
das ist mit Acrobat Produkten der Aussage entsprechend nicht möglich.
Die Suche nach einem fertigen Tool kam zum selben Ergebnis.
Ich habe das Programm soweit fertig, mit der Verknüpfung einer Datenbank, und das läuft.
Das bestehend Problem ist, dass das Prog die Umwandlung nur einmal macht, und dann beim zweiten Durchgang Word sich nicht mehr laden lässt.
Ich vermute nun, dass die bmp Datei nicht von der WORD App getrennt wird.
Nun versuche ich schrittweise an das Problem heranzukommen. Deshalb auch der kurze, anfängliche Codeausschnitt.
Der SET wapp = nothing wurde beim Testaufbau vergessen, ist aber im großen Prog vorhanden.
Im Test, wenn set... vorhanden ist, lässt sich Word starten, aber die bmp Datei nicht mehr einfügen.
Deshalb vermute ich, dass die bmp Datei noch aus dem vorherigen Ladvorgang ein Sperrmerkmal hat.
Ich bringe dazu noch den Code der des Programm.
Allen Mitlesern und Denkern zunächst vielen Dank für das Interesse an diesem Problem!
Beitrag wurde zuletzt am 11.03.18 um 10:02:53 editiert. | |
Re: bmp nach pdf | | | Autor: Paulix1 | Datum: 11.03.18 10:09 |
| Nun der Code
msgbox 1 leeres Vorlage wird erstellt
msgbox 2 bmp Datei wird geladen
msgbox 3a Export als PDF und speichern als pdfDatei
msgbox 4 speichern der temporären wordDatei
msgbox 4a schließen, beenden von Word.
' Word-Objekt erzeugen
Dim wApp As Word.Application
Set wApp = CreateObject("word.Application")
With wApp
' Word nicht anzeigen
.Application.Visible = True
MsgBox "1"
Form400.List1.AddItem "App geladen"
Form400.PB1.Value = 40
' Word-Dokument laden und export
Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
' Documents.Add Template:="C:\VIM}VIMScann\OLD\1DA.docx",
' NewTemplate:=False, DocumentType:=0
MsgBox "1a"
GoSub SeiteEinrichten
Form400.List1.AddItem "Seiten einrichten"""
Form400.PB1.Value = 50
MsgBox "2"
SeitenZahl = UBound(bmpD, 1)
For i = 0 To SeitenZahl
Select Case i
Case 0
MsgBox "2a"
Form400.List1.AddItem "2a " & bmpD(i)
Selection.InlineShapes.AddPicture FileName:=bmpD(i), _
LinkToFile:=False, SaveWithDocument:=True
Case Is > 0
MsgBox "2b"
' For k = 0 To SeitenZahl
Form400.List1.AddItem "2b " & bmpD(i)
Selection.InsertNewPage
Selection.InlineShapes.AddPicture FileName:=bmpD(i), _
LinkToFile:=False, SaveWithDocument:=True
' Next k
End Select
Next i
MsgBox "3"
'Speichern, wird am Ende wieder gelöscht.
'Damit wird die Abfrage Speichern unter unterdrückt
' ActiveDocument.SaveAs2 "D:\VIM\VIMScann\1DA.docx"
MsgBox "3a"
'Export nach pdf
Form400.List1.AddItem "Speichern " & pdfObjFileName
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
pdfObjFileName, ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _
True, UseISO19005_1:=True
Form400.List1.AddItem "Nach pdf umgewandelt"
Form400.PB1.Value = 60
' nach getaner Arbeit, Word wieder beenden
MsgBox "4"
' ChangeFileOpenDirectory "D:\VIM\VIMScann\"
ActiveDocument.SaveAs2 FileName:="1DA.docx", FileFormat:= _
wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False, CompatibilityMode:=15
MsgBox "4a"
ActiveDocument.Close
Application.Quit
Set wApp = Nothing
MsgBox "4b"
' Fso.DeleteFile "D:\VIM\VIMScann\1DA.docx", True
MsgBox "5"
Set Fso = Nothing
Form400.List1.AddItem "Konvertierung beendet"""
Form400.PB1.Value = 70
MsgBox "6"
End With
Exit Sub
SeiteEinrichten:
With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(0)
.BottomMargin = CentimetersToPoints(0)
.LeftMargin = CentimetersToPoints(0)
.RightMargin = CentimetersToPoints(0)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1.25)
.FooterDistance = CentimetersToPoints(1.25)
.PageWidth = CentimetersToPoints(21)
.PageHeight = CentimetersToPoints(29.7)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
End With
Return | |
Re: bmp nach pdf | | | Autor: effeff | Datum: 11.03.18 20:21 |
| ' Word nicht anzeigen
.Application.Visible = True Damit wird Word aber angezeigt. Es muss "False" heißen...
Application.Quit Dein Objekt heißt aber "wApp". Es muss also
wApp.Quit heißen...
Warum ist "SeiteEinrichten" nicht in einer eigenen Sub oder Function?
Und was in aller Welt sollen die vielen MessageBoxen?
EALA FREYA FRESENA | |
Re: bmp nach pdf | | | Autor: markusxy | Datum: 18.03.18 09:40 |
| Hallo Paulix1,
ich habe dir bereits viel früher den Link zu einem kostenlosen Tool gespostet, welches deine Anforderungen perfekt erfüllt. Abgesehen davon wird das PDF im Gegensatz zu Word nicht größer und es funktioniert mit atemberaubender Geschwindigkeit. Warum verwendest du es nicht?
http://www.debenu.com/products/development/debenu-pdf-library-lite/
LG Markus | |
Re: bmp nach pdf | | | Autor: Paulix1 | Datum: 18.03.18 13:50 |
| Hallo markusxy,
und vielen Dank für den erneuten Hinweis.
Ich habe mir die Lite Version geholt und das Sample AddImageFromFile probiert.
Mit einem bmp File ist das problemlos.
Entweder es geht mit der Lite Version nicht,
ein zweites oder drittes Image zu laden (anzuhängen),
oder ich kann das nicht.
Generell, soweit ich das im ersten Moment sehen kann,
ist das eine gute Sache!
Mitlerweile ist die Aufgabe mit WORD am laufen.
Bin aber auch für das DEBENU offen. | |
Re: bmp nach pdf | | | Autor: markusxy | Datum: 18.03.18 15:31 |
| Bei Erfordernis fügst du mittels NewPage eine neue Seite ein und dann das nächste Bild.
Da gibt es keine Einschränkungen.
Da ich aber nie ein Feedback bekommen habe (Ist man als Helfender ja gewöhnt), bin ich davon ausgegangen dass du es nicht angesehen hast.
Aber wenn's läuft passt eh alles.
/Edit
Ich habs jetzt noch kurz getestet.
Dauer um 3 A4 jpg in eine PDF umzuwandeln 25 Millisekunden. Wobei dieser Rechner sehr langsam ist im Vergleich zu meinem der sich grade im Krankenstand befindet.
Beitrag wurde zuletzt am 18.03.18 um 15:54:17 editiert. | |
Re: bmp nach pdf | | | Autor: Paulix1 | Datum: 21.03.18 13:00 |
| Hallo markusxy,
vielen Dank für den nochmaligen Hinweis.
Ich hab die Komponente nun benutzt, bin begeistert.
Danke! | |
Re: bmp nach pdf | | | Autor: markusxy | Datum: 21.03.18 21:09 |
| Schön zu hören.
Von der Qualität her finde ich die Software genial.
Die haben aber den Preis der Vollversion plötzlich von €400 auf €1500 erhöht.
Dann habe ich dann doch nicht mehr darüber nachgedacht. | |
| 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 |
|
|
sevWizard für VB5/6
Professionelle Assistenten im Handumdrehen
Erstellen Sie eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP - mit allem Komfort und zwar in Windeseile :-) Weitere InfosTipp des Monats März 2024 Dieter OtterUTF-8 Konvertierung von Dateien und StringsVB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. TOP Entwickler-Paket
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 EURWeitere Infos
|