Site Index - Feedback - Impressum |
| |||||||||
|
|
( Archiv ) | ( Neues Thema ) |
28.09.2002 |
Re: Scan to Fax oder Drucker tool gesucht (von: Falko Eickel, 14:13:37) | ^ |
Wenn Du Impos/2 2.x hast, kannst Du Dir das mit ein paar Zeilen REXX selber zurechtzimmern :-).
Das hier habe ich irgendwann mal gefunden: /* Angepaßtes Kopierprogramm */ /* Impos/2 - kopieren V1.0 -------------------------- (by Wolfram Koerner, CIS: 100430,1064) Scannt DIN A4 s/w ein und druckt auf Laserjet aus */ /* ~~~~~~~~~~~~ ANPASSEN !!! ~~~~~~~~~~~ */ CONST_Impos2Dir = "G:GrafikImpos" CONST_Scanner = "ScanMaker E6 A1 - DIN A4, 1bit" CONST_Printer = "HP LaserJet 4L" /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */ say "KOPIEREN" say "Kopiert DIN A4 Seite von Scanner -> Drucker" say curdir = Directory() neudir = Directory(CONST_Impos2Dir) call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs' call SysLoadFuncs call RxFuncAdd 'ImgInit', 'ImpRexx', 'ImgInitiate' call ImgInit neudir = Directory(curdir) say "Seite scannen..." scanner = ScnOpenScanner(CONST_Scanner) if scanner = 0 then do msg = "Fehler: Scanner nicht gefunden ("||CONST_Scanner||")"||D2C(10)||"(Scanner wirklich eingeschaltet ?)" DlgMessage(msg, 3, 'Fehler !') exit end /*fehler = ScnSetImageType(scanner,1)*/ /*fehler = ScnSetResolution(scanner, 11811, 11811)*/ /* 300 x 300 dpi */ /*fehler = ScnSetScanArea(scanner,50,50,2385,3389)*/ /* A4 = 0,0,2485,3496 */ bild = ScnScanImage(scanner) if bild = 0 then do msg = "Fehler: Seite konnte nicht gescannt werden."||D2C(10)||"(Scanner wirklich eingeschaltet ?)" DlgMessage(msg, 3, 'Fehler !') exit end say "Seite drucken..." drucker = 0 drucknr = PrtQueryPrinterCount() do i = 1 to drucknr if PrtQueryPrinterName(i) = CONST_Printer then drucker = i end if drucker = 0 then fehler = PrtSelectPrinter(drucker) fehler = ImgPrintImage(bild, 2, "HT", 1, FALSE) if drucker = 0 then do msg = "Fehler: Drucker nicht gefunden ("||CONST_Printer||")" DlgMessage(msg, 3, 'Fehler !') end /* fehler = ImgSaveImage(bild, "C:DELME.JPG", "JPG", "JPEG", TRUE) */ fehler = ImgCloseImage(bild) say "Fertig." Wenn ich mich richtig erinnere, dann gab es aber einige Probleme damit, hauptsächlich lag es daran, daß der Microtek ScanMaker E6 unter einem Schwarz-/Weiß-Scan eine fast weiße Seite versteht ... [ Leser: 121 ] |
|
Mit * markierte Felder müssen ausgefüllt werden ! |
( Zeige alle Einträge ) | ( Zur Startübersicht ) |
|
| Horst | 136 | 28.09.2002 | 10:19 |
| Klaus Staedtler | 124 | 28.09.2002 | 13:20 |
| Christian/2 | 121 | 28.09.2002 | 13:25 |
| Klaus Staedtler | 121 | 28.09.2002 | 13:38 |
| Peter | 115 | 28.09.2002 | 13:41 |
| Klaus Staedtler | 120 | 28.09.2002 | 13:43 |
| sam | 109 | 28.09.2002 | 16:43 |
| Thomas Bohn | 52 | 30.09.2002 | 15:07 |
| Falko Eickel | 121 | 28.09.2002 | 14:13 |
| Klaus Staedtler | 117 | 28.09.2002 | 15:28 |
| sam | 112 | 28.09.2002 | 16:49 |
| Franz | 106 | 28.09.2002 | 18:10 |
| Klaus Staedtler | 104 | 28.09.2002 | 18:46 |
| Horst | 86 | 29.09.2002 | 08:02 |
| sam | 86 | 29.09.2002 | 09:09 |
| setiraz | 75 | 29.09.2002 | 13:39 |
| Achim | 61 | 30.09.2002 | 09:03 |
| Uwe KLAUS | 64 | 30.09.2002 | 09:07 |
| 107 | 28.09.2002 | 18:17 |
|