Forum: Programmieren allgemein
by Neumann,
27. Mär 2014
Dann sollte es eigentlich gehen. Kann der Druckername falsch sein? Um da zu prüfen, kann man die Funktion Switchprinter benutzen. Ist der Druckername falsch, liefert diese den Namen des Standarddruckers zurück.
Forum: Programmieren allgemein
by Neumann,
26. Mär 2014
Ist der Drucker in Windows installiert?
Druck er Testseite oder aus Wordpad?
Forum: Programmieren allgemein
by Neumann,
26. Mär 2014
Das ganze Programm kann ich hier nicht veröffentlichen.
function RawDataToPrinter(szPrinterName:PChar; lpData:PByte; dwCount:Word) : Boolean;
Var
hPrinter : THandle;
DocInfo : DOC_INFO_1;
dwJob : Word;
dwBytesWritten : Cardinal;
Forum: Programmieren allgemein
by Neumann,
26. Mär 2014
Den Control-Font muss man nicht extra installieren, er ist sozusagen in dem Drucker eingebaut und steht immer dann zur Verfügung, wenn der Drucker ausgewählt wird, z.B. in Wordpad. Leider bleibt dann wie gesagt das Problem mit dem Papierstreifen wenn man den Befehl so wie oben an den Drucker sendet.
Was ich vorher gepostet habe funktioniert ohne Druck von Papierstreifen und bei sehr vielen...
Forum: Programmieren allgemein
by Neumann,
21. Mär 2014
@ol1uw:
Das funktioniert zwar, aber leider druckt der Drucker dann einen etwa 1 cm langen Papierschnipsel.
Forum: Programmieren allgemein
by Neumann,
21. Mär 2014
Hallo,
ich mache das über den Windows-Druckertreiber so:
function RawDataToPrinter(szPrinterName:PChar; lpData:PByte; dwCount:Word) : Boolean;
Var
hPrinter : THandle;
DocInfo : DOC_INFO_1;
dwJob : Word;
dwBytesWritten : Cardinal;