Datenzusammenführung - Seiten als Serienbilder ausgeben - wie geht das?

Danke für Ihre Antwort!
Das Problem ist nicht das Datamerging = Einbinden von Text und Bildern in die Publikation = Seiten.
Siehe großes Bild. Das zeigt, dass allen "Seiten" Serientext (URL) und Serienbilder (QR-Code) hinzugefügt wurden.
Mein Problem ist der "Ausdruck" der Seiten. Denn ich möchte keinen "Seriendruck auf Drucker" und keinen "Seriendruck in eine Publikation" sondern eine Ausgabe der "Seiten" als Bilder im png-Format und das bekomme ich nicht hin.
Übrigens geht auch nicht der Ausdruck auf einen "pdf-Drucker" - das habe ich bereits mit dem "pdf24-Drucker" getestet.
Schönen Gruß und vielen Dank
Hans

Hallo. Vielen Dank für Ihre Frage und Ihre Kontaktaufnahme. Mein Name ist John und ich würde mehr als glücklich sein, Ihnen bei Ihrer Anfrage zu helfen.

Laut diesem Artikel https://support.microsoft.com/de-de/office/271b01fe-07bd-4b5e-ae74-60b338df6c79

Das Seriendruckfeld kann durch Klicken in das Textfeld hinzugefügt werden. Klicken Sie im Aufgabenfenster Seriendruck unter Weitere Elemente auf Bildfeld. Klicken Sie im Dialogfeld Bildfeld einfügen auf das Datenfeld, das die Namen oder Pfade der Bilddateien enthält, und klicken Sie dann auf OK.

Bitte zögern Sie nicht, für weitere Fragen zurückzusenden.
Alles Gute
John

Geben Sie der Gemeinschaft etwas zurück. Helfen Sie der nächsten Person, die dieses Problem hat, indem Sie angeben, ob diese Antwort Ihr Problem gelöst hat. Klicken Sie unten auf Ja oder Nein.

Diese Antwort ist automatisch übersetzt worden. Daher kann sie grammatikalische Fehler oder fremde Ausdrücke enthalten.

Wir haben inzwischen August 2016 und das geht immer noch nicht.

Ich frage mich inzwischen, warum ich so doof bin und seit drei Jahren Geld für Office 365 ausgebe und dann geht so etwas grundlegendes und einfaches nicht.

Mit Google Adressen und Thunderbird funktioniert das seit Jahren bestens und das Ganze kostet nix.

geht des wirklich nicht.

Kann man sich da nich an Microsoft wenden.

Der Computer war gebraucht gekauft.

Kann ich jetzt also nicht mit Office arbeiten.

Ich will halt bevor ich 500 € ausgebe es schon mal testen gibt es da gar keine Möglichkeit????

Vielen Dank für deine Antwort.

Fabi

Hallo Gustav,

du könntest auf letzte Zeile prüfen und dann die Höhe deines Bereiches ausgeben:

LRow = Cells(Rows.Count, 1).End(xlUp).Row

Höhe = Range("A1:A" & LRow).Height

Wenn ich DIN A4 drucken möchte, geht ein Bereich von 750 Punkten auf eine Seite. Daraus könntest du ableiten, dass der verfügbare Bereich 750-4*15=690 Punkte beträgt.

Du könntest auch ein Worksheet_Change Event für das Blatt einfügen und dir eine Warnung für die letzte Zeile ausgeben lassen. Das funktioniert aber nur für die erste Seite. Bei mehreren Seiten müsste man doch den horizontalen Seitenumbruch zugreifen ( mit
dem Wert 690 kannst du noch etwas experimentieren):

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("A:A")) Is Nothing Or _

    Target.Count > 1 Then Exit Sub

    

If Target.Top >= 690 - Target.Height Then

    MsgBox "Letzte Zeile!"

End If

End Sub

Claus