Label ausdrucken

gert_nrw_71

Hallo zusammen,

ich möchte ein kleines Script erstellen, welches folgendes Label erzeugt (evtl. noch ein Logo in die Ecke) und ausdruckt.

Habt ihr Ideen, wie man das Label am besten erstellt und über AutoIt ausdrucken kann ? Evtl. HTML oder gibt es andere Möglichkeiten ?

image.png

**SOLVE-SMART**

Hi gert_nrw_71 👋 ,

mit welchen Programm hast du denn Screenshot erstellt? Kannst du nicht einfach darin auf drucken drücken und fertig?
Falls es nicht nur um diese einmalige Sache geht, um dieses eine Label, dann wäre eine Automatisierung ggf. sinnvoll.

Wie steht es denn um deine Erfahrung mit AutoIt? Falls du eher Einsteiger mit der Sprache bist, würde ich je nach Label-Anzahl, eher einen Serienbrief in MS Word oder ähnlichen Programmen erstellen und dort die dynamischen Werte ändern lassen, dann ausdrucken und fertig.

Bin gespannt wie deine Antwort(en) sein werden 😀 .

Viele Grüße
Sven

**Alina**

Vielleicht wäre das ganze irgendwie über eine GUI lösbar.
Du müsstest dazu eine GUI erstellen, die so aussieht wie z. B. ein DIN-A4 Blatt mit 2 Spalten à 8 Labels.
Diese müssten dann dementsprechen noch gefüllt werden.

Das war nun ein typische "Alina Gedankengang". Ob und wie der umsetzbar ist, möchte ich mal dahingestellt lassen. Aber ich gehe davon aus, das irgend einer es wieder schafft umzusetzen.

gert_nrw_71

Hallo,

also es geht nicht nur um einen einzigen Ausdruck, sondern um wiederkehrende Bedarfe, ein Label auszudrucken.

Mir ist auch als erstes ein Labelprogramm in den Sinn gekommen, die sind aber sehr teuer und wenn man das Drucken nachher von mehreren Stationen ermöglichen möchte, dann vervielfacht sich der Preis für die Labelsoftware noch. Daher die Idee etwas über AutiIT zu Programmieren, meine Skills sind eher Basic würde ich sagen, aber ich bin bereit da Zeit zu investieren, zumal es mir immer viel spaß macht etwas zu programmieren. Word oder Excel empfinde ich für den Anwender zu aufwendig, selbst wenn man es mit VBA automatisiert.

Gedruckt werden soll auf einem Labeldrucker, sodass auch einzelne Labels geduckt werden können, ohne gleich einen ganzen A4 Bogen verwenden zu müssen.

Eine EIngabemaske habe ich bereits erstellt, die sieht so aus:

image.png

Durch diese Struktur kann ich auch sicherstellen, das alle notwendigen Felder gefüllt sind und ggf. weitere "Eingabefehler" eliminieren.

Meine erste Idee war es, diese Eingaben dann in eine HTML Datei zu packen, in der das Drucklayout soweit enthalten ist und das dann auszudrucken.
Aber vielleicht gibt es noch eine einfachere Lösung einige wenige Parameter mit einem gewissen Layout über AutoIt zu drucken ?

**Oscar**

Das Label an sich ist ja eher simpel aufgebaut. Das kann man per GDI+ schnell mal dynamisch erstellen.

Mit dem ausdrucken ist es dann aufwendiger. Ob es da in AutoIt eine UDF gibt, weiß ich jetzt nicht. Ansonsten z.B. IrfanView fernsteuern.

oh-ha

Würde doch auch gut über ein PDF Formular zu machen sein, ob er nun die Angaben in eine Gui eingibt oder in ein PDF Formular ist doch eher Latte.

PDF Formulare kann man sich leicht über Libre Office oder Open Office erstellen und dann auch bequem ausdrucken.

Edit: Würde dann so aussehen.1.pdf

**SOLVE-SMART**

Ich stimme oh-ha zu, gert_nrw_71 . Ein Serienbrief oder ein PDF-Formular ist sicherlich schneller aufgesetzt/eingerichtet also über eine AutoIt GUI.
Auch der Weg den Oscar beschreibt geht sicherlich, doch ist meines Erachtens noch anspruchsvoller. Besonders wenn es dann um den eigentlichen Druck geht.
Die Print UDFs die ich aus der Vergangenheit kenne, waren nicht besonders - kann sich natürlich geändert haben.

Zitat von gert_nrw_71

[...] aber ich bin bereit da Zeit zu investieren, zumal es mir immer viel spaß macht etwas zu programmieren [...]

Aus 'ner AutoIt-GUI heraus die Daten dann als Website (mit entsprechenden Styling (CSS)) darstellen, finde ich nicht schlecht / vertretbar. Im Browser ist der Druck dann sicherlich recht easy. Nicht so toll wie direkt über 'ne Print-UDF, aber geht.

💡 Allerdings würde ich persönlich nicht erst über 'ne GUI gehen. Warum solltest du jedesmal einzeln dort alles eintragen? Du kannst doch in eine Plain-Text-Datei (CSV-Format bspw. oder JSON-Format) alles wichtige schreiben. Zeile für Zeile und es hintereinander abarbeiten lassen (als Website speichern, drucken, nächstes Label) ohne das du überhaupt 'ne GUI brauchst. Dort hast du auch volle Kontrolle über die Daten.

---------------------------------

Naja, es gibt viele Wege wie man dies umsetzen kann. Bin gespannt was du am Ende tun wirst 😇 .

Viele Grüße
Sven

**BugFix**

Zitat von gert_nrw_71

Word oder Excel empfinde ich für den Anwender zu aufwendig, selbst wenn man es mit VBA automatisiert.

Aufwändig - inwiefern. Du kannst doch dort auch GUI anbieten und hast den Vorteil, dass alles direkt mit VBA verknüpft ist. Der Anwender bekommt doch davon nichts mit.

oh-ha

Hatte mal ähnliches gemacht vor Jahren mit Meta-Daten von MP3.

Meinst du das so in etwa? Ist etwas zusammengeschustert aus meinen alten Programm.

AutoIt

#include <ButtonConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>

$Form1 = GUICreate("Form1", 782, 346, 194, 125)
$Label1 = GUICtrlCreateLabel("Kommission:", 32, 39, 65, 17)
$kom = GUICtrlCreateInput("", 96, 37, 217, 21)
$Label2 = GUICtrlCreateLabel("Artikel", 32, 79, 33, 17)
$art = GUICtrlCreateInput("", 96, 76, 217, 21)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "/test_1.jpg", 336, 32, 404, 292)
$Label3 = GUICtrlCreateLabel("Mitarbeiter", 32, 118, 53, 17)
$mit = GUICtrlCreateInput("", 96, 115, 217, 21)
$Label4 = GUICtrlCreateLabel("Wareneingangsdatum:", 32, 157, 111, 17)
$Date1 = GUICtrlCreateDate("2024/04/22 04:18:28", 144, 152, 186, 21)
$Button1 = GUICtrlCreateButton("Zurücksetzen", 232, 200, 75, 25)
$Button2 = GUICtrlCreateButton("Drucken", 136, 224, 75, 25)
$Button3 = GUICtrlCreateButton("Beenden", 136, 296, 75, 25)
$Button4 = GUICtrlCreateButton("Einlesen", 32, 200, 75, 25)

GUISetState(@SW_SHOW)

Global $lesen_input_kom, $lesen_input_art, $lesen_input_mit, $lesen_input_dat

Func schreiben()
			$sFont='Times New Roman'
			_GDIPlus_Startup()
			$himg = _GDIPlus_ImageLoadFromFile(@ScriptDir & "/test_1.jpg")
			Local $hGraphic = _GDIPlus_ImageGetGraphicsContext($himg)
			$iX = _GDIPlus_ImageGetWidth($himg)
			$iy = _GDIPlus_ImageGetHeight($himg)
			$hBrush = _GDIPlus_BrushCreateSolid(); $Color)
			$hFormat = _GDIPlus_StringFormatCreate()
			$hFamily = _GDIPlus_FontFamilyCreate("Times New Roman")
			$hFont = _GDIPlus_FontCreate($hFamily, 22, 0)
			$tLayout = _GDIPlus_RectFCreate(200, 121, 550, 50)
			_GDIPlus_StringFormatSetAlign($hFormat, 0)
			_GDIPlus_GraphicsDrawImage($hGraphic, $himg, $iX, $iy)
			_GDIPlus_GraphicsDrawStringEx($hGraphic, $lesen_input_kom, $hFont, $tLayout, $hFormat, $hBrush)
			_GDIPlus_ImageSaveToFile($himg, @ScriptDir & "/test_2.jpg")
			_GDIPlus_BrushDispose($hBrush)
			_GDIPlus_ImageDispose($himg)
			_GDIPlus_BrushDispose($hBrush)
			_GDIPlus_GraphicsDispose($hGraphic)
			_GDIPlus_Shutdown()
			GUICtrlSetImage($Pic1, @ScriptDir & "/test_2.jpg")
If FileExists(@ScriptDir & "/test_2.jpg") Then
			_GDIPlus_Startup()
			$himg = _GDIPlus_ImageLoadFromFile(@ScriptDir & "/test_2.jpg")
			Local $hGraphic = _GDIPlus_ImageGetGraphicsContext($himg)
			$iX = _GDIPlus_ImageGetWidth($himg)
			$iy = _GDIPlus_ImageGetHeight($himg)
			$hBrush = _GDIPlus_BrushCreateSolid(); $Color)
			$hFormat = _GDIPlus_StringFormatCreate()
			$hFamily = _GDIPlus_FontFamilyCreate("Times New Roman")
			$hFont = _GDIPlus_FontCreate($hFamily, 22, 0)
			$tLayout = _GDIPlus_RectFCreate(250, 230, 620, 50)
			_GDIPlus_StringFormatSetAlign($hFormat, 0)
			_GDIPlus_GraphicsDrawImage($hGraphic, $himg, $iX, $iy)
			_GDIPlus_GraphicsDrawStringEx($hGraphic, $lesen_input_art, $hFont, $tLayout, $hFormat, $hBrush)
			_GDIPlus_ImageSaveToFile($himg, @ScriptDir & "/test_3.jpg")
			_GDIPlus_BrushDispose($hBrush)
			_GDIPlus_ImageDispose($himg)
			_GDIPlus_BrushDispose($hBrush)
			_GDIPlus_GraphicsDispose($hGraphic)
			_GDIPlus_Shutdown()
			FileDelete(@ScriptDir & "/test_2.jpg")
			GUICtrlSetImage($Pic1, @ScriptDir & "/test_3.jpg")
EndIf
If FileExists(@ScriptDir & "/test_3.jpg") Then
			_GDIPlus_Startup()
			$himg = _GDIPlus_ImageLoadFromFile(@ScriptDir & "/test_3.jpg")
			Local $hGraphic = _GDIPlus_ImageGetGraphicsContext($himg)
			$iX = _GDIPlus_ImageGetWidth($himg)
			$iy = _GDIPlus_ImageGetHeight($himg)
			$hBrush = _GDIPlus_BrushCreateSolid(); $Color)
			$hFormat = _GDIPlus_StringFormatCreate()
			$hFamily = _GDIPlus_FontFamilyCreate("Times New Roman")
			$hFont = _GDIPlus_FontCreate($hFamily, 22, 0)
			$tLayout = _GDIPlus_RectFCreate(330, 340, 550, 50)
			_GDIPlus_StringFormatSetAlign($hFormat, 0)
			_GDIPlus_GraphicsDrawImage($hGraphic, $himg, $iX, $iy)
			_GDIPlus_GraphicsDrawStringEx($hGraphic, $lesen_input_mit, $hFont, $tLayout, $hFormat, $hBrush)
			_GDIPlus_ImageSaveToFile($himg, @ScriptDir & "/test_4.jpg")
			_GDIPlus_BrushDispose($hBrush)
			_GDIPlus_ImageDispose($himg)
			_GDIPlus_BrushDispose($hBrush)
			_GDIPlus_GraphicsDispose($hGraphic)
			_GDIPlus_Shutdown()
			FileDelete(@ScriptDir & "/test_3.jpg")
			GUICtrlSetImage($Pic1, @ScriptDir & "/test_4.jpg")
EndIf
If FileExists(@ScriptDir & "/test_4.jpg") Then
			_GDIPlus_Startup()
			$himg = _GDIPlus_ImageLoadFromFile(@ScriptDir & "/test_4.jpg")
			Local $hGraphic = _GDIPlus_ImageGetGraphicsContext($himg)
			$iX = _GDIPlus_ImageGetWidth($himg)
			$iy = _GDIPlus_ImageGetHeight($himg)
			$hBrush = _GDIPlus_BrushCreateSolid(); $Color)
			$hFormat = _GDIPlus_StringFormatCreate()
			$hFamily = _GDIPlus_FontFamilyCreate("Times New Roman")
			$hFont = _GDIPlus_FontCreate($hFamily, 22, 0)
			$tLayout = _GDIPlus_RectFCreate(390, 450, 470, 50)
			_GDIPlus_StringFormatSetAlign($hFormat, 0)
			_GDIPlus_GraphicsDrawImage($hGraphic, $himg, $iX, $iy)
			_GDIPlus_GraphicsDrawStringEx($hGraphic, $lesen_input_dat, $hFont, $tLayout, $hFormat, $hBrush)
			_GDIPlus_ImageSaveToFile($himg, @ScriptDir & "/test_5.jpg")
			_GDIPlus_BrushDispose($hBrush)
			_GDIPlus_ImageDispose($himg)
			_GDIPlus_BrushDispose($hBrush)
			_GDIPlus_GraphicsDispose($hGraphic)
			_GDIPlus_Shutdown()
			FileDelete(@ScriptDir & "/test_4.jpg")
			GUICtrlSetImage($Pic1, @ScriptDir & "/test_5.jpg")
EndIf
EndFunc;schreiben

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button3
			FileDelete(@ScriptDir & "/test_2.jpg")
			FileDelete(@ScriptDir & "/test_3.jpg")
			FileDelete(@ScriptDir & "/test_4.jpg")
			FileDelete(@ScriptDir & "/test_5.jpg")
			Exit
		Case $Button4
			 $lesen_input_kom = GUICtrlRead($kom)
			 $lesen_input_art = GUICtrlRead($art)
			 $lesen_input_mit = GUICtrlRead($mit)
			 $lesen_input_dat = GUICtrlRead($Date1)
			 schreiben()
		Case $Button1
			 GUICtrlSetData($kom, " ")
			 GUICtrlSetData($art, " ")
			 GUICtrlSetData($mit, " ")
			 GUICtrlSetImage($Pic1, @ScriptDir & "/test_1.jpg")
			FileDelete(@ScriptDir & "/test_2.jpg")
			FileDelete(@ScriptDir & "/test_3.jpg")
			FileDelete(@ScriptDir & "/test_4.jpg")
			FileDelete(@ScriptDir & "/test_5.jpg")
		Case $Button2
			If FileExists(@ScriptDir & "/test_5.jpg") Then
			   shellexecute(@ScriptDir & "/test_5.jpg")
			Else
			   MsgBox(16,"Fehler", "Kein Label erstellt zum Drucken")
			EndIf
	EndSwitch
WEnd

Alles anzeigen

Das Bild test_1.jpg und das Script müssen in einen Ordner, damit es funktioniert.

Beim "Drucken" wird nur das letzte Bild geöffnet.

Edit: Irgendwie wird das Bild im Beitrag in der Größe geändert vom Forum und passt dann nicht mehr. Hinterlege das mal als gepackte Datei

gmmg

Hallo Zusammen,

wir haben früher so was ähnliches benutzt, um Verrechnungsschecks zu drucken.

Das vorgehen war so:

- Word Vorlage/Template erstellt

- Daten per Autoit aus einer DB auslesen

- Daten per Autoit Word.au3 in die Word Vorlage geschrieben und entsprechend nach Schecknummer gedruckt und gespeichert.

folgend mal das alte Script.

AutoIt

#include <Word.au3>
#include <Date.au3>
#include <array.au3>
#include "mysql.au3"

Local $hFile, $vData, $sFileName, $sData, $hQuery, $aRow, $sMsg, $sSQliteDll
Local $number_xx,$sString

; MYSQL starten, DLL im PATH (enthält auch @ScriptDir), sont Pfad zur DLL angeben. DLL muss libmysql.dll heißen.
_MySQL_InitLibrary()
If @error Then Exit MsgBox(0, '', "")
;; MsgBox(0, "DLL Version:",_MySQL_Get_Client_Version()&@CRLF& _MySQL_Get_Client_Info())

$MysqlConn = _MySQL_Init()


$connected = _MySQL_Real_Connect($MysqlConn, "server", "user", "pass", "db_scheckdaten")
If $connected = 0 Then Exit MsgBox(16, 'Connection Error', _MySQL_Error($MysqlConn))
$errno = _MySQL_errno($MysqlConn)
	;;MsgBox(0,"Error:",$errno & @LF & _MySQL_error($MysqlConn))
	If $errno = $CR_UNKNOWN_HOST Then
	;; MsgBox(0,"Error:","$CR_UNKNOWN_HOST" & @LF & $CR_UNKNOWN_HOST)
Endif


$query = "SELECT date,answerd FROM tab_dnis WHERE time = '14:00'"
_MySQL_Real_Query($MysqlConn, $query)

$res = _MySQL_Store_Result($MysqlConn)


;MsgBox(0, '', "Zugriff Methode 3 - alles in ein 2D Array")
;$array = _MySQL_Fetch_Result_StringArray($res)
;_ArrayDisplay($array)

$rows = _MySQL_Num_Rows($res)
$fields = _MySQL_Num_Fields($res)
;; MsgBox(0, '', "Zugriff Methode 1- Handarbeit")
Dim $array[$rows][$fields]
For $k = 1 To $rows
	$mysqlrow = _MySQL_Fetch_Row($res,$fields)

	$lenthsStruct = _MySQL_Fetch_Lengths($res)

	For $i = 1 To $fields
		$length = DllStructGetData($lenthsStruct, 1, $i)
		$fieldPtr = DllStructGetData($mysqlrow, 1, $i)
		$data = DllStructGetData(DllStructCreate("char[" & $length & "]", $fieldPtr), 1)
		$array[$k - 1][$i - 1] = $data
	Next
Next
;; _ArrayDisplay($array)

_WertzuWort($array[1][1] & $array[2][1] )


; Verbindung beenden
_MySQL_Close($MysqlConn)
; MYSQL beenden
_MySQL_EndLibrary()



$Logo = "pfad + schecklogo.JPG"

$Scheckempf = ""
$Scheckaus = "xyz GmbH Straße, plz stadt"

$Bankinstitut = "Bank Name"
$BLZ = "647477567567"
$Betragw = '***' & $sString & '**'
$Betragz = "100"
$Schecknr = "000001"
$Kto= "567567657567"

$oWordApp = ObjCreate("Word.Application")
$oWordApp.visible = 1
$odoc = _WordDocOpen($oWordApp, "pfad+ vorlage.doc")



; Tabelle 1 Scheckempfänger und Absender
$odoc.Range.Tables(1).Cell(1, 1).Range.InsertAfter($Scheckaus) ;Adresse Absender Scheckaus
$odoc.Range.Tables(1).Cell(2, 1).Range.InsertAfter("Herr") ; Anrede
$odoc.Range.Tables(1).Cell(3, 1).Range.InsertAfter("Vormane name") ; Vorname   Name Scheckempfänger
$odoc.Range.Tables(1).Cell(4, 1).Range.InsertAfter("weg 5") ; Straße Scheckempfänger
$odoc.Range.Tables(1).Cell(5, 1).Range.InsertAfter("535345") ; PLZ Scheckempfänger
$odoc.Range.Tables(1).Cell(5, 2).Range.InsertAfter("Stadt") ; Ort Scheckempfänger


; Firmenlogo Absender Tabelle 2
$odoc.Range.Tables(2).Cell(1, 1).Range.InlineShapes.AddPicture($Logo) ; Logo einfügen

;; Tabelle  3 Scheckdruck
$odoc.Range.Tables(3).Cell(1, 1).Range.InsertAfter($Bankinstitut & $BLZ) ; Bezogenes Kreditinstitut
$odoc.Range.Tables(3).Cell(1, 2).Range.InsertAfter($Scheckaus) ; Adresse Absender Scheckaustelle

$odoc.Range.Tables(3).Cell(3, 1).Range.InsertAfter($Betragw) ; ScheckBetrag in Worten
$odoc.Range.Tables(3).Cell(4, 2).Range.InsertAfter($Betragz) ; Scheckbetrag in Zahl

$odoc.Range.Tables(3).Cell(2, 3).Range.InsertAfter("Vorname Name STraße PLZ Stadt") ; Adresse Kundenadresse

$odoc.Range.Tables(3).Cell(5, 2).Range.InsertAfter("Erfurt") ; Austellungsort
$odoc.Range.Tables(3).Cell(6, 2).Range.InsertAfter(_NowDate()) ; datum
$odoc.Range.Tables(3).Cell(5, 1).Range.InsertAfter("Vorname Name STraße PLZ Stadt")

;Schecknummer
$odoc.Range.Tables(3).Cell(10, 1).Range.Font.Name = "OCRAhuslik"
$odoc.Range.Tables(3).Cell(10, 1).Range.InsertAfter($Schecknr & Chr(176))
;Kontonr.
$odoc.Range.Tables(3).Cell(10, 2).Range.Font.Name = "OCRAhuslik"
$odoc.Range.Tables(3).Cell(10, 2).Range.InsertAfter($Kto & Chr(35))
;Betrag
$odoc.Range.Tables(3).Cell(10, 3).Range.Font.Name =  "OCRAhuslik"
$odoc.Range.Tables(3).Cell(10, 3).Range.InsertAfter("00000" & $Betragz & Chr(33))
;Bankleitzahl
$odoc.Range.Tables(3).Cell(10, 4).Range.Font.Name = "OCRAhuslik"
$odoc.Range.Tables(3).Cell(10, 4).Range.InsertAfter($BLZ & Chr(176))
; Text
$odoc.Range.Tables(3).Cell(10, 5).Range.Font.Name = "OCRAhuslik"
$odoc.Range.Tables(3).Cell(10, 5).Range.InsertAfter("01" & Chr(176))

;; Tabelle  4 Empfänger Beleg

$odoc.Range.Tables(4).Cell(1, 1).Range.InsertAfter("Scheckausteller")
$odoc.Range.Tables(4).Cell(1, 2).Range.InsertAfter($Scheckaus)
$odoc.Range.Tables(4).Cell(3, 1).Range.InsertAfter("Scheckempfänger")
$odoc.Range.Tables(4).Cell(3, 2).Range.InsertAfter("Vorname Name STraße PLZ Stadt")


$odoc.Range.Tables(4).Cell(5, 1).Range.InsertAfter("Scheckverwendungszweck")
$odoc.Range.Tables(4).Cell(5, 2).Range.InsertAfter("Brutto EUR")
$odoc.Range.Tables(4).Cell(5, 3).Range.InsertAfter("% Sk.")
$odoc.Range.Tables(4).Cell(5, 4).Range.InsertAfter("Skonto EUR")
$odoc.Range.Tables(4).Cell(5, 5).Range.InsertAfter("Netto EUR")

$odoc.Range.Tables(4).Cell(9, 1).Range.InsertAfter("Datum: " & _NowDate() & @LF & "ScheckNR: " & $Schecknr & @LF & "BLZ " & $BLZ &  @LF & "Kto " & $Kto)
$odoc.Range.Tables(4).Cell(9, 2).Range.InsertAfter($array[1][1] & $array[2][1] &  ",00 EUR")

;_WertzuWort($Wert)


; Funktionen Umwandelung Zahl zu Wort

Func _WertzuWort($number)

;$number = StringSplit( $number,",")

$number_vk = StringLen( $number)
;$number_nk = StringLen( $number[2])

For $i = 1 To $number_vk

 $res = StringLeft($number, $i)
 ;MsgBox(0, "Leftmost 3 characters are:", $result)
 $var = StringRight($res, 1)
 ;MsgBox(0, "Rightmost 3 characters are:", $var)
 _num_word($var)

 $sString &= $number_xx & "*"


 IF $i = $number Then ExitLoop
Next
EndFunc



Func _num_word($number)

;deklaration Nummmer /Wort
$number0 = "NULL"
$number1 = "EINS"
$number2 = "ZWEI"
$number3 = "DREI"
$number4 = "VIER"
$number5 = "FÜNF"
$number6 = "SECHS"
$number7 = "SIEBEN"
$number8 = "ACHT"
$number9 = "NEUN"

IF $number = 0 Then $number_xx = $number0
IF $number = 1 Then $number_xx = $number1
IF $number = 2 Then $number_xx = $number2
IF $number = 3 Then $number_xx = $number3
IF $number = 4 Then $number_xx = $number4
IF $number = 5 Then $number_xx = $number5
IF $number = 6 Then $number_xx = $number6
IF $number = 7 Then $number_xx = $number7
IF $number = 8 Then $number_xx = $number8
IF $number = 9 Then $number_xx = $number9

EndFunc

Alles anzeigen

Die Word Datei sah dann so in etwas vom Aufbau aus.

image.png

Gruß Marcel

gert_nrw_71

Hallo zusammen,

danke für die vielen Tipps und Hinweise

Kann mir noch Jemand sagen, wie ich ein RTF Dokument am besten ausdrucken kann ?

**Alina**

Benötigst Du das privat odr beruflich?

Beruflich würde ich mich fragen, ob es nicht sinnvoller wäre einen Labeldrucker zu verwenden.

Privat würde ich zu einer Lösung über Adobe / Word / ... raten.
Wenn Du eine gute Vorlage für Adobe haben möchtest, könnte ich Dir weiter helfen. Ich nutze beruflich die große Adobeversion und die kann ja mehr als ich weiß / benötige.

Ich schätze einfach, das es über AutoIt zwar machbar ist, aber der zeitliche Aufwand sehr hoch ist.

hipfzwirgel

Hallole,

ich führe in der FA eine Db in der Computerdaten erfasst werden. Um unsere Testrechner mit einem Label zu versehen packe ich die dazu notwendigen Daten aus der Db in den
Zwischenspeicher und übergebe sie per Autoitscript an den Editor des LabelDruckers (Brother PTouch -> PTouch-Editor). Im Editor formatiert mein Script das Label und öffnet den Druckdialog.
Das initiieren des Drucks habe ich nicht automatisiert, da je nach Label ein anderes Label-Band zuerst eingesetzt werden muss. Das funzt bei mir tadellos...

Nach meiner Erfahrung kommt es auf den Label-Drucker und dessen Soft.-/Firmware an, ob und wie Daten übernommen werden können...

gert_nrw_71

Hallo,

das wird beruflich eingesetzt und ich habe einen Zebra ZD230 Labeldrucker im Einsatz.

gert_nrw_71

Irgendwie bin ich für dieses Forum zu Dumm..... Wie kann man denn auf einen Eintrag reagieren ?

DIe Idee von gmmg finde ich gut, zumal man kein zusätzliches Program zum Drucken der Labels benötigt.

Warum erstellst du denn für jede Modifizierung ein neues JPG, geht das nicht in einem rutsch ?

oh-ha

Das Beispiel von gmmg macht keine Bilder, es wird über Word mit Datenbankanbindung umgesetzt.

Meinst du das aus Beitrag 9 von mir?

Das war nur ein zusammengewürfeltes Beispiel, wie man es umsetzen könnte. Natürlich kann man auch alle Labels erstellen, in einem Ordner sammeln und dann in einem Rutsch drucken.

gmmg

Wenn es um mein Beispiel geht, da wird das entsprechende Logo vom Auftraggeber Portal übergeben.

Wenn sich das Logo nicht ändert, kann das natürlich auch gleich Vorlage rein.

Gruß gmmg

gert_nrw_71

Hallo zusammen,

könnt ihr mir noch einen Tipp geben, wie man am besten eine HTML Seite ausdrucken kann ?
Beim Versuch das mit ShellExecute oder _FilePrint bekomme ich immer die Fehlermeldung "Der Datei ist keine App zum Ausführen dieser Aktion zugeordnet." Im OS (Win11) habe ich Edge jedoch als Standard für HTML Dateien hinterlegt ?

**Alina**

Zitat von gert_nrw_71

Irgendwie bin ich für dieses Forum zu Dumm.....

Du siehst es von der falschen Seite ! Du bist nicht zu dumm, sondern Du musst einfach noch etwas dazu lernen. Pos. zu denken hilft beim lernen.

gert_nrw_71

nie aufgeben, das stimmt wohl