Das deutsche QBasic- und FreeBASIC-Forum

[kaestnerw]

Hallo *,
Ich würde gerne beim drucken verschieden Schriften verweden. Gibts dazu irgendwelche Musterprogramme...
Hardware: Windows 7 Prof. mit div.Druckern dran Canon MP280, Brother HL-2250-Dn, OKI Farblaser, AMD-4 Kern Prozessor mit 3,8 GHz, 8 GB Hauptspeicher. derzeit Installiert FreeBasic 1.01.0 für Windows und FBIde 0.4.6r4 bin da baer nicht fixiert, kann auch eine andere Version verwenden.
Danke und Gruß
kaestnerw

[dreael]

Also laut

http://www.freebasic.net/wiki/wikka.php?wakka=KeyPgOpenLpt

gibt es immerhin einen Modus, der die Verwendung beliebiger Windows-Drucker erlaubt (sogar das Mitgeben eines Namens für den Druckjob ist vorgesehen), dito auch bei Linux mit lpr.

Nur das Problem: Die sog. TTY-Emulation unterstützt natürlich keine grafischen Möglichkeiten wie u.a. der Schriftartwechsel. => Somit müsstest Du Deinen Druckjob in einer gerätespezifischen Druckersprache aufbereiten, wie dies im MS-DOS-Zeitalter noch üblich war, wo Druckerdaten im RAW-Format verschickt wurden. Ist aus meiner Sicht höchstens für höherwertige Drucker geeignet, typischerweise Laserdrucker mit PCL- und PostScript-Emulation (dies sind recht gut standardisierte Befehlssätze) => Der Endbenutzer Deiner FB-Applikation müsste sich dann ein Gerät dieser Kategorie zulegen.

Auf jeden Fall nicht mehr mit LPRINT arbeiten, sondern OPEN, PRINT#und CLOSE, damit fürs Betriebssystem eine saubere Abgrenzung der Druckjobs im Spooler resultiert.
_________________
Teste die PC-Sicherheit mit www.sec-check.net

[grindstone]

Hallo kaestnerw!

Hier noch ein paar Links zu dem Thema:

http://www.freebasic-portal.de/downloads/bibliotheken/dislin-anbindung-fuer-freebasic-213.html
http://www.freebasic.net/forum/viewtopic.php?f=2&t=21578
http://forum.qbasic.at/viewtopic.php?p=39976&sid=6c3f4a6cbc95771ed98acc60c6b745b2
https://www.adobe.com/products/postscript/pdfs/PLRM.pdf
https://www.itp.uni-hannover.de/~zawischa/ITP/proPS.html

Gruß
grindstone
_________________
For ein halbes Jahr wuste ich nich mahl wie man Proggramira schreibt. Jetzt bin ich einen!

[peter_u]

Hallo,

ich habe vor einigen Jahren ein Programm erstellt (und bis heute fortlaufend aktualisiert), welches Drucker mit PCL5e anspricht. Wir nutzen damit - auch auf Wíndows 8.1! - einen HP2300DTN Duplex,Netzwerk,Mehrfach-Blattfächer für DIN-A4 und A5 problemlos (gibt es auf einer Auktionsplattform für ca 79 Euro). Wie oben schon beschrieben brauchst Du einen Drucker, der über eingebaute Schriftarten verfügt und auch dann ist die Druckerprogrammierung nicht ganz einfach.
Dein Brother HL2250DN hat PCL6 eingebaut - soweit mir bekannt ist, ist dies abwärtskompatibel zu PCL5e.
Ich bin hier im Forum eher Tipp-Empfänger als -Geber, aber vielleicht kann ich ausnahmsweise mal helfen

Bei Interesse sende mir eine PN.
_________________
Der alte Mann lernt noch
--- Learning by doing ---

[peter_u]

Der dritte Link von grindstone verweist auf meine damalige Frage.
Hier der Code aus meinem Programm mit Erklärungen als Basis für eigene Versuche (sorry an die Admins - ich hoffe es ist ok, dass ich das so poste, bin nicht der Forum-Freak):

'Variable für Drucker anlegen:
Dim Shared As String druckername
'Druckername vergeben: MINITOWER = Netzwerkname PC, dahinter Netzwerkname Drucker
druckername="lpt:\\MINITOWER\HP LaserJet 2300 Series PCL 5e"
----------------------------------------------------------
Function selectPrinter( ) As String
' Windows Druckerauswahl fuer einen bestimmten Drucker
Dim As PrintDlg pd
pd.lStructSize = SizeOf( PrintDlg )
If PrintDlg( @pd ) = FALSE Then
Exit Function
End If
Dim As DEVNAMES Ptr dn = GlobalLock( pd.hDevNames )
Function = *Cast( ZString Ptr, Cast( Byte Ptr, dn ) + dn->wDeviceOffset )
GlobalUnlock( dn )
End Function
-------------------------------------------------------------------------------------------------------------------
'Beispiel AUSDRUCK
Open lpt druckername for Output as #98
' INFO Bedeutung: &11H Fach 2, &11S Duplex, &126A DIN A4
' und im HP! Drucker eingebauten Font ansprechen:
Print #98, Chr$(27);"E";Chr$(27);"&l1H";Chr$(27);"&l0S";Chr$(27);"&l26A";Chr$(27)+"(13U"+Chr$(27)+"(s0p13h0s0b4099T";
' andere Schriftart und Grösse
Print #98, " ";Chr$(27)+"(s1p24v0s2b24607T";"PIANOTRANS ";Chr$(27)+"(s0p10h0s0b4099T";
'Druckdatei schliessen
Print #98, Chr$(27);"E" 'Blatt auswerfen
Close #98
_________________
Der alte Mann lernt noch
--- Learning by doing ---

[kaestnerw]

Hallo *,
also nochmals herzlichen Dank für die Infos, das eine oder andere davon werde ich sicher noch probieren. Für den Moment (als schnelle Lösung) habe ich folgenden Weg gewählt: es gibt da ein Gratis-Programm QBdruck, das kann man gratis aus dem Internet herunterladen, es liest eine Datei ein und man kann damit alle vorhandenen Schriften unter Windows in den verschiedensten Größen drucken, das erfüllt ganz meine Erfordernisse.
(z.B. die Schrift Algerian in der Größe 170 dann sind die Buchstaben 3 c hoch und 2,5 cm breit. Damit kann man eine ganze Menge anfagen und das reicht mir aufs erste.
Danke und Gruß

[dreael]