formular drucken

heyhey83

Hallo ich habe eine frage,
ich möchte ein Formular erstellen und das soll sich dann als label ausdrucken lassen in der Größe 29mm x 90mm.
Geht das oder wie stelle ich das an.

MfG
Roberto

C

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\nikolaj\Downloads\koda_1.7.3.0\Forms\lafa.kxf
$lafa = GUICreate("lafa", 615, 437, 447, 227)
GUICtrlCreateInput("", 16, 48, 121, 21)
$lafalabel = GUICtrlCreateInput("", 152, 48, 305, 21)
GUICtrlCreateInput("", 472, 48, 121, 21)
$artikelnr = GUICtrlCreateLabel("Artikelnummer", 16, 24, 70, 17)
$bezeichnung = GUICtrlCreateLabel("Artikel Bezeichnung", 152, 24, 98, 17)
$preis = GUICtrlCreateLabel("Preis", 472, 24, 27, 17)
$Drucken = GUICtrlCreateButton("Drucken", 16, 88, 75, 25)
$Speichern = GUICtrlCreateButton("Speichern", 104, 88, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit


		Case $lafalabel
	EndSwitch
WEnd

Alles anzeigen

**Alina**

Moin.

Hier kannst Du mal nachsehen, ob es paßt.
Ist auf die Schnelle mal gescriptet und Dank der Hilfe war es auch
schnell umsetzbar. Nur überarbeiten und anpassen, das ist Dein Part.

AutoIt

#include <File.au3>
#include <GUIConstantsEx.au3>
#include <File.au3>
#include <GUIConstantsEx.au3>
#include <File.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\nikolaj\Downloads\koda_1.7.3.0\Forms\lafa.kxf
$lafa = GUICreate("lafa", 615, 437, 447, 227)
$_var1 = GUICtrlCreateInput("1234567890", 16, 48, 121, 21)
$_var2 = GUICtrlCreateInput("Beispielfrucht", 152, 48, 305, 21)
$_var3 = GUICtrlCreateInput("2,99", 472, 48, 121, 21)
$artikelnr = GUICtrlCreateLabel("Artikelnummer", 16, 24, 70, 17)
$bezeichnung = GUICtrlCreateLabel("Artikel Bezeichnung", 152, 24, 98, 17)
$preis = GUICtrlCreateLabel("Preis", 472, 24, 27, 17)
$Drucken = GUICtrlCreateButton("Drucken", 16, 88, 75, 25)
$Speichern = GUICtrlCreateButton("Speichern", 104, 88, 75, 25) ; z. Zt. ueberfluessig ;)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		case $Drucken
			_los()
	EndSwitch
WEnd
Func _los()
	If Not _FileCreate("test.txt") Then
		MsgBox(4096, "Fehler", "Fehler beim Erstellen der txt.-Datei: " & @error)
	EndIf
	Local $file = FileOpen("test.txt", 10)
; Pruefen, ob Datei im Schreibmodus geoeffnet ist
	FileWrite($file, "Artikel: " & GUICtrlRead($_var1) & @CRLF & @CRLF)
	FileWrite($file, "Beschreibung: " & GUICtrlRead($_var2) & @CRLF)
	FileWrite($file, "Preis: € " & GUICtrlRead($_var3) & @CRLF)
;	FileClose($file)
ShellExecute (@ScriptDir & "\" & "test.txt", "", "", "print", @SW_HIDE)
	FileClose($file)
EndFunc

Alles anzeigen

heyhey83

Okay soweit ist das gut aber wie gesagt das label ist 29mm x 90mm, Wenn ich auf drucken klicke soll es das Menü öffnen wo ich den Label Drucker aussuchen kann da ich zwei Drucker habe an ein Rechner. und das speichern will ich über eine ini datei machen

Code

Case $Save
     save()


Func save()
    IniWrite("Save.ini", "lafa", "Artikelnummer", GUICtrlRead($artikelnr))
    IniWrite("Save.ini", "lafa", "Artikel Bezeichnung", GUICtrlRead($bezeichnung))
	IniWrite("Save.ini", "lafa", "Preis", GUICtrlRead($preis))
			EndFunc

Zweites es soll keine PDF werden.

heyhey83

So habe da was geändert

AutoIt

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\nikolaj\Downloads\koda_1.7.3.0\Forms\lafa.kxf
$lafa = GUICreate("lafa", 615, 437, 447, 227)
$lafalabel1= GUICtrlCreateInput("", 16, 48, 121, 21)
$lafalabel2= GUICtrlCreateInput("", 152, 48, 305, 21)
$lafalabel3 = GUICtrlCreateInput("", 472, 48, 121, 21)
$artikelnr = GUICtrlCreateLabel("Artikelnummer", 16, 24, 70, 17)
$bezeichnung = GUICtrlCreateLabel("Artikel Bezeichnung", 152, 24, 98, 17)
$preis = GUICtrlCreateLabel("Preis €", 472, 24, 27, 17)
$Drucken = GUICtrlCreateButton("Drucken", 16, 88, 75, 25)
$Save = GUICtrlCreateButton("Speichern", 104, 88, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
			Func save()
    IniWrite("Save.ini", "", "Artikelnummer", GUICtrlRead($lafalabel1) & @CRLF & @CRLF)
    IniWrite("Save.ini", "", "Artikel Bezeichnung", GUICtrlRead($lafalabel2) & @CRLF & @CRLF)
	IniWrite("Save.ini", "", "Preis €", GUICtrlRead($lafalabel3) & @CRLF & @CRLF)
			EndFunc
Func _los()
	ShellExecute (@ScriptDir & "\" & "Save.ini", "", "", "print", @SW_HIDE)
EndFunc
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $Save
			save()
			case $Drucken
			_los()
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd

Alles anzeigen

was mich stört sind bei der ini das die abstände untereinander zu groß sind

Code

[]
Artikelnummer=2221




Artikel Bezeichnung=test




Preis=120

Alles anzeigen

Zeile 1 Soll ganz verschwinden, Zeile fünf sollte auf drei und Zeile 8 auf 4.

Beim Ausdruck soll wieder das Wort Preis stehen noch = bei den anderen das selbe.

MfG
Roberto

n00b-it

Dann mach die beiden @CRLF hinter dem GUICtrlRead() weg. Dann passiert der große Abstand nicht mehr.

**chesstiger**

Auf die Gefahr hin, dass ich die Fragestellung missverstehe...

Eine reine Textdatei (*.txt) ist imho denkbar ungeeignet dafür. Du kannst ja nicht auf physische Einheiten zurückgreifen, du kannst ja noch nicht einmal die Schriftgröße anpassen. Ich würde spontan mal den Ansatz testen, eine HTML-Datei zu generieren und diese zu drucken. Das hat den Vorteil, dass du mittels CSS auf physische Einheiten (Inch, cm, mm...) zurückgreifen kannst.

Mal ein kleines Beispiel. Das sollte theoretisch nach dem Drucken genau 90x29 mm groß sein.

HTML

<html>
    <head>
        <style type="text/css">
        .labelcont {
            border: 1px dotted black;
            width: 90mm;
            height: 29mm;
        }
        .labelline {
            display: block;
            line-height: 9mm;
            padding-left: 3mm;
        }
        </style>
    </head>
    <body>
        <div class="labelcont">
            <span class="labelline">
                Art. Nr. 1337
            </span>
            <span class="labelline">
                Gebackenes Einhornfleisch
            </span>
            <span class="labelline">
                42,00 €
            </span>
        </div>
    </body>
</html>

Alles anzeigen

Edit: Wenn du im Body-Tag noch ein onload="javascript:window.print();" hinzufügst, wird sogar sofort der Drucken-Dialog aufgerufen. Das Dokument muss dann nach dem Erzeugen nur noch mit bspw. dem IE geöffnet werden.

heyhey83

Danke aber HTML ist da ungeeignent es soll ein eigenstädiges programm sein bzw. .exe Werde das ganze noch erweitern mit mehreren reitern usw.

Aber bei den drucken ist es so das ich das ganze nicht als PDF Ausgeben will wie mache ich das ???

MfG
Roberto

**Kanashius**

Sagt ja keiner, dass die anderen sehen müssen, dass du es mit dem InternetExplorer machst

AutoIt

#include <IE.au3>
$sReplaceString='REPLACEDATA'
$sPrintHtml='<html><head><style type="text/css">'&@crlf&'.labelcont {border: 1px dotted black;width: 90mm;height: 29mm;}'&@crlf& _
				'.labelline {display: block;line-height: 9mm;padding-left: 3mm;}'&@crlf&'</style></head>'& _
				'<body onload="window.print();">'&@crlf&$sReplaceString&@crlf&'</body></html>'
$sPrintHtmlItem='<span class="labelline">'&$sReplaceString&'</span>'
$sPrintHtmlBlock='<div class="labelcont">'&$sReplaceString&'</div>'


local $arData=["Nr.1","Name","0.00€"]
local $sPrintData=_addItem($arData)
$sPrintData&=_addItem($arData)
_printData($sPrintData)
exit


Func _addItem($arData)
	local $sPrintHtmlItemData,$sPrintBlockItemData
	for $i=0 to UBound($arData)-1 step 1
		$sPrintHtmlItemData&=StringReplace($sPrintHtmlItem,$sReplaceString,$arData[$i])&@crlf
	next
	$sPrintBlockItemData=StringReplace($sPrintHtmlBlock,$sReplaceString,$sPrintHtmlItemData)&'<br>'&@crlf&$sReplaceString
	return $sPrintBlockItemData
EndFunc


Func _printData($sPrintData)
	$sPrintData=StringReplace($sPrintData,$sReplaceString,"")
	local $sPrintDocument=StringReplace($sPrintHtml,$sReplaceString,$sPrintData)
	$oIE=_IECreate("",0,0,0)
	$oIE.document.write($sPrintDocument)
	$oIE.document.close()
	_IEQuit($oIE)
EndFunc

Alles anzeigen

Wenn du wirklich über die WinApi drucken willst... das ist ziemlich komplex. Und der Aufwand lohnt nicht wirklich, denn am Ende kommt was ähnliches bei rum, wie jetzt, nur dass du dich um alles selbst kümmern must.

MfG Kanashius

**alpines**

Zitat von Kanashius

Sagt ja keiner, dass die anderen sehen müssen, dass du es mit dem InternetExplorer machst

Schön MacGyver-mäßig, gefällt mir!

heyhey83

Okay das ist schön und gut, gibt es da keine input feld wo ich dann immer die Nr ,Bezeichnung & Preis reinschreibe ? .

Oder kann man wenn das schon als PDF ausgeben wird, das so machen das es die PDF in 29mm x 90mm speichert ?

MfG
Roberto

**chesstiger**

Die Inputfelder kannst du ja selber dazuskripten, ist ja kein Aufwand. Den "schwierigen" Teil hat Kanashius ja schon demonstriert.

Was meinst du mit PDF? Es wird ein Standard-Drucken-Dialog geöffnet. Mit dem kannst du dann ganz normal drucken, egal ob auf einem physisch vorhandenen Drucker oder auf einem PDF-Drucker.

@Kanashius alpines hat recht, die Lösung ist cool.

heyhey83

Code

ShellExecute (@ScriptDir & "\" & "Saveankauf.ini", "", "", "print", @SW_HIDE)

das ist die funtion beim drucken und da speichert der das als PDF und will es auch drucken aber halt auf den falschen Drucker.

**chesstiger**

Wenn ich das richtig in Erinnerung habe, sollte im sich öffnenden Drucken-Dialog der als Standard in der Systemsteuerung angegebene Drucker ausgewählt werden, aber noch vom Nutzer änderbar sein.
Der Programmierer hat - soweit ich weiß - keinen Einfluss auf die Wahl des Druckers. Was auch durchaus Sinn macht.

Kann auch sein, dass ich mich da jetzt ein wenig verzettele. Ich nutze seit längerem nur noch Linux-Systeme.

heyhey83

Es wäre super wenn sich da das Drucker Menü öffnen würde damit man den Drucker aussuchen kann.

**autoiter**

Hallo @heyhey83
Kannst du nicht dort wo es um die Aufgabe geht, den richtigen Drucker zum Standard-Drucker machen?

**autoiter**

Gerade habe ich unter win10 versucht den Code von @Kanashius auszuprobieren. Klappt bei mir nicht.
Der Code läuft ohne Fehlermeldung durch, aber es gibt keine sichtbaren Effekte..
Raffe ich nicht, was passieren soll?

**chesstiger**

So, ich habe jetzt nochmal 'ne Windows-VM aufgesetzt.

Folgender Code funktioniert bei mir. Das Problem ist, dass man auf das Drucken-Fenster warten muss, bevor man den IE wieder schließt.

[autoit]

#include <IE.au3>