Denne opdelte meddelelse er i MIME-format.
------=_NextPart_000_0046_01C13787.2ACA53E0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Dennis,
I believe that barcode printers comes in 2 main types :
Type 1: Printing is straightforward, i.e. basically as a normal text
printer, and barcoding is turned on and off by escape=20
sequences. How to include escape sequences in QUIZ-reports
has been covered a number of times in this list.
Type 2: Where the specifications for the label is downloaded to the
printer followed by a 'data-block' and a 'print-command'.
The specifications 'draws' the label with 'fields' (much like=20
QDESIGN 'draws' the screen), and the 'data-block' supplies
values for the 'fields'.
I have an example on how to print barcode labels on a MARKPOINT printer, =
which is a type 2 printer:=20
access d_awbreg=20
define copies char*5 =3D parm prompt "No. of copies : "
choose rrs_awbno parm prompt "Enter AWB number : " 1 times
define copies_ch char*7 =3D "!P" + lj(copies)
define ........=20
.....
.....
set report device printer noejectpage
set page length 120 ; To be determined by trial and error
set page width 70 ; combined with clever guesswork.
; *** The label specifications goes in the page header ***
page heading &
tab 1 '!C' skip 1 &
tab 1 '!Y100 60' skip 1 &
tab 1 '!Y24 70' skip 1 &
tab 1 '!Y35 1' skip 1 &
tab 1 '!F B S 1476 1016 L 4 936 0' skip 1 &
tab 1 '!F B S 1117 1016 L 4 941 0' skip 1 &
tab 1 '!F B S 973 1011 L 4 933 0' skip 1 &
tab 1 '!F B S 822 1011 L 4 933 0' skip 1 &
tab 1 '!F B S 825 510 L 149 4 0' skip 1 &
tab 1 '!F T S 1546 768 L 24 0 31 "%1V"' skip 1 &
tab 1 '!Y42 0' skip 1 &
tab 1 '!F C S 1226 861 L 220 4 41 "%2V%5V00000"' skip 1 &
tab 1 '!Y102 3' skip 1 &
tab 1 '!F T S 1084 1001 L 1 1 2 "Air Waybill No."' skip 1 &
tab 1 '!F T S 935 1001 L 1 1 2 "Destination"' skip 1 &
tab 1 '!F T S 935 491 L 1 1 2 "Total No. of Pieces"' skip 1 &
tab 1 '!F T S 1187 810 L 12 11 31 "%2V%5V00000"' skip 1 &
tab 1 '!F T S 855 1001 L 21 0 31 "%3V"' skip 1 &
tab 1 '!F T S 855 488 L 21 0 31 "%6V"' skip 1 &
tab 1 '!F T S 1011 768 L 21 5 31 "%2V-%5V"' skip 1 &
tab 1 '!F B S 1666 1015 L 4 938 0' skip 1 &
tab 1 '!F B S 1476 81 L 191 4 0' skip 1 &
tab 1 '!F B S 735 79 L 385 4 0' skip 1 &
tab 1 '!F B S 45 1015 L 1071 4 0' skip 1 &
tab 1 '!F B S 1478 1018 L 190 4 0' skip 1 &
tab 1 '!F B S 47 79 L 689 4 0' skip 1 &
tab 1 '!F B S 45 1014 L 4 940 0' skip 1 &
tab 1 '!F T S 785 485 L 1 1 2 "Total WT KG"' skip 1 &
tab 1 '!F T S 775 906 L 21 0 31 " "' skip 1 &
tab 1 '!F T S 79 657 L 16 0 31 "%7V"' skip 1 &
tab 1 '!F T S 78 994 L 16 0 31 "%8V"' skip 1 &
tab 1 '!F T S 79 839 L 16 0 31 "%9V"' skip 1 &
tab 1 '!F T S 708 484 L 21 0 31 "%10V"' skip 1 &
tab 1 '!F T S 787 955 L 1 1 2 " "' skip 1 &
tab 1 '!F T S 781 1002 L 1 1 2 "Payment Code"' skip 1 &
tab 1 '!F T S 706 985 L 21 0 31 "%11V"' skip 1 &
tab 1 '!F B S 677 1015 L 4 940 0' skip 1 &
tab 1 '!F B S 676 511 L 149 4 0' skip 1 &
tab 1 '!F T S 615 977 L 1 1 2 " "' skip 1 &
tab 1 '!F T S 642 1000 L 1 1 2 "Shipper"' skip 1 &
tab 1 '!F T S 506 997 L 1 1 2 "Consignee"' skip 1 &
tab 1 '!F T S 640 798 L 9 0 43 "%12V"' skip 1 &
tab 1 '!F T S 603 798 L 9 0 43 "%13V"' skip 1 &
tab 1 '!F T S 566 799 L 9 0 43 "%14V"' skip 1 &
tab 1 '!F T S 504 799 L 9 0 43 "%15V"' skip 1 &
tab 1 '!F T S 428 796 L 9 0 43 "%17V"' skip 1 &
tab 1 '!F T S 466 795 L 9 0 43 "%16V"' skip 1 &
tab 1 '!F B S 399 1015 L 4 938 0' skip 1 &
tab 1 '!F B S 143 1014 L 4 938 0' skip 1 &
tab 1 '!F T S 361 993 L 1 1 2 "Routing"' skip 1 &
tab 1 '!F T S 361 798 L 9 0 43 "%18V"' skip 1 &
tab 1 '!F T S 325 799 L 9 0 43 "%19V"' skip 1 &
tab 1 '!F T S 286 797 L 9 0 43 "%20V"' skip 1 &
tab 1 '!F T S 249 797 L 9 0 43 "%21V"' skip 1 &
tab 1 '!F T S 210 798 L 9 0 43 "%22V"' skip 1 &
tab 1 '!F T S 172 796 L 9 0 43 "%23V"' skip 1 &
tab 1 &
'!F T S 26 249 L 3 0 31 "Copyright 1999 ScanConsult IT-Partners"'&
skip 3
; *** The data-block is created by the report-statement ***
report &
tab 1 "!R" skip 1 &
tab 1 carrier skip 1 &
tab 1 prf skip 1 &
tab 1 cityoff skip 2 &
tab 1 snr skip 1 &
tab 1 tnop_ch skip 1 &
tab 1 awbtype skip 1 &
tab 1 speccode1 skip 1 &
tab 1 speccode2 skip 1 &
tab 1 totwt skip 1 &
tab 1 chgcode skip 1 &
tab 1 shipper1 skip 1 &
tab 1 shipper2 skip 1 &
tab 1 shipper3 skip 1 &
tab 1 consignee1 skip 1 &
tab 1 consignee2 skip 1 &
tab 1 consignee3 skip 1 &
tab 1 routing1 skip 1 &
tab 1 routing2 skip 1 &
tab 1 routing3 skip 1 &
tab 1 routing4 skip 1 &
tab 1 routing5 skip 1 &
tab 1 routing6 skip 1 &
tab 1 copies_ch ; *** This is the 'print'-command ***
For interpretation of the individual lines (!F T S... etc.), refer to =
the MARKPOINT manual.
Hope this helps - also for other type 2 label printers.
/Ole Hansen
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
E-mail: oh@scanconsult.dk Cell Phone: +45 40 40 11 50
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
ScanConsult IT-Partners ApS Voice : +45 87 38 74 74
Jegstrupvej 96A Fax : +45 87 38 74 75
DK-8361 Hasselager Support : support@scanconsult.dk
Denmark Sales : sales@scanconsult.dk
http://www.scanconsult.dk
=3D=3D=3D ParaSuite : A Suite of Air Cargo Handling solutions =
=3D=3D=3D
=3D=3D=3D ParaSafe : A Suite of IT-Security solutions =
=3D=3D=3D
=3D=3D=3D We partner with Hewlett-Packard, Cognos, Lotus and others =
=3D=3D=3D
-----Oprindelig meddelelse-----
Fra: mike53 <mike53@computelnet.com>
Til: powerh-l@lists.swau.edu <powerh-l@lists.swau.edu>
Dato: 7. september 2001 01:30
Emne: Bar-Code
=20
=20
Need help example on how to print bar-code labels.
Dennis M. Blair
------=_NextPart_000_0046_01C13787.2ACA53E0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
Dennis,
I believe that =
barcode printers=20
comes in 2 main types :
Type 1: Printing is straightforward, =
i.e.=20
basically as a normal text
=20
printer, and barcoding is turned on and off by escape =
=20
sequences. How to include escape sequences in QUIZ-reports
has=20
been covered a number of times in this list.
Type 2: Where the specifications for =
the label=20
is downloaded to the
=20
printer followed by a 'data-block' and a 'print-command'.
The=20
specifications 'draws' the label with 'fields' (much like
=20
QDESIGN 'draws' the screen), and =
the=20
'data-block' supplies
=20
values for the 'fields'.
I have an example on how to print =
barcode labels=20
on a MARKPOINT printer, which is a type 2 printer:
access d_awbreg =
define =
copies char*5 =3D=20
parm prompt "No. of copies : "
choose=20
rrs_awbno parm prompt=20
"Enter AWB number : " 1 times
define copies_ch =
char*7 =3D=20
"!P" + lj(copies)
define ........
.....
.....
set report device =
printer=20
noejectpage
set page length 120 ; To be determined by trial and =
error
set page width 70 ; combined =
with clever=20
guesswork.
; *** The label =
specifications=20
goes in the page header ***
page=20
heading =
&=
nbsp; &n=
bsp; &nb=
sp; =20
&
tab 1=20
'!C' &nb=
sp; &nbs=
p; =
; =20
skip 1 &
tab 1 '!Y100=20
60' &nbs=
p; =
; =
=20
skip 1 &
tab 1 '!Y24=20
70' &nbs=
p; =
; =
=20
skip 1 &
tab 1 '!Y35=20
1' =
; =
&=
nbsp; =20
skip 1 &
tab 1 '!F B S 1476 1016 L 4 936=20
0' =
; =20
skip 1 &
tab 1 '!F B S 1117 1016 L 4 941=20
0' =
; =20
skip 1 &
tab 1 '!F B S 973 1011 L 4 933=20
0' =
; =20
skip 1 &
tab 1 '!F B S 822 1011 L 4 933=20
0' =
; =20
skip 1 &
tab 1 '!F B S 825 510 L 149 4=20
0' =
; =20
skip 1 &
tab 1 '!F T S 1546 768 L 24 0 31=20
"%1V"' &nb=
sp; =20
skip 1 &
tab 1 '!Y42=20
0' =
; =
&=
nbsp; =20
skip 1 &
tab 1 '!F C S 1226 861 L 220 4 41=20
"%2V%5V00000"' skip=20
1 &
tab 1 '!Y102=20
3' =
; =
&=
nbsp; =20
skip 1 &
tab 1 '!F T S 1084 1001 L 1 1 2 =
"Air=20
Waybill No."' skip =
1 =20
&
tab 1 '!F T S 935 1001 L 1 1 2=20
"Destination"' &=
nbsp; =20
skip 1 &
tab 1 '!F T S 935 491 L 1 1 2 =
"Total No.=20
of Pieces"' skip 1 &
tab =
1 '!F T=20
S 1187 810 L 12 11 31=20
"%2V%5V00000"' skip=20
1 &
tab 1 '!F T S 855 1001 L 21 0 31=20
"%3V"' &nb=
sp; =20
skip 1 &
tab 1 '!F T S 855 488 L 21 0 31=20
"%6V"' &nb=
sp; =20
skip 1 &
tab 1 '!F T S 1011 768 L 21 5 31=20
"%2V-%5V"' =
; =20
skip 1 &
tab 1 '!F B S 1666 1015 L 4 938=20
0' =
; =20
skip 1 &
tab 1 '!F B S 1476 81 L 191 4=20
0' =
; =20
skip 1 &
tab 1 '!F B S 735 79 L 385 4=20
0' =
; =
=20
skip 1 &
tab 1 '!F B S 45 1015 L 1071 4=20
0' =
; =20
skip 1 &
tab 1 '!F B S 1478 1018 L 190 4=20
0' =
; =20
skip 1 &
tab 1 '!F B S 47 79 L 689 4=20
0' =
; =
=20
skip 1 &
tab 1 '!F B S 45 1014 L 4 940=20
0' =
; =20
skip 1 &
tab 1 '!F T S 785 485 L 1 1 2 =
"Total WT=20
KG"' &nbs=
p; skip=20
1 &
tab 1 '!F T S 775 906 L 21 0 31 "=20
"' =
=20
skip 1 &
tab 1 '!F T S 79 657 L 16 0 31=20
"%7V"' &nb=
sp; =20
skip 1 &
tab 1 '!F T S 78 994 L 16 0 31=20
"%8V"' &nb=
sp; =20
skip 1 &
tab 1 '!F T S 79 839 L 16 0 31=20
"%9V"' &nb=
sp; =20
skip 1 &
tab 1 '!F T S 708 484 L 21 0 31=20
"%10V"' &n=
bsp; =20
skip 1 &
tab 1 '!F T S 787 955 L 1 1 2 "=20
"' =
=20
skip 1 &
tab 1 '!F T S 781 1002 L 1 1 2 =
"Payment=20
Code"' skip=20
1 &
tab 1 '!F T S 706 985 L 21 0 31=20
"%11V"' &n=
bsp; =20
skip 1 &
tab 1 '!F B S 677 1015 L 4 940=20
0' =
; =20
skip 1 &
tab 1 '!F B S 676 511 L 149 4=20
0' =
; =20
skip 1 &
tab 1 '!F T S 615 977 L 1 1 2 "=20
"' =
=20
skip 1 &
tab 1 '!F T S 642 1000 L 1 1 2=20
"Shipper"' =
; =20
skip 1 &
tab 1 '!F T S 506 997 L 1 1 2=20
"Consignee"' &nb=
sp; =20
skip 1 &
tab 1 '!F T S 640 798 L 9 0 43=20
"%12V"' &n=
bsp; =20
skip 1 &
tab 1 '!F T S 603 798 L 9 0 43=20
"%13V"' &n=
bsp; =20
skip 1 &
tab 1 '!F T S 566 799 L 9 0 43=20
"%14V"' &n=
bsp; =20
skip 1 &
tab 1 '!F T S 504 799 L 9 0 43=20
"%15V"' &n=
bsp; =20
skip 1 &
tab 1 '!F T S 428 796 L 9 0 43=20
"%17V"' &n=
bsp; =20
skip 1 &
tab 1 '!F T S 466 795 L 9 0 43=20
"%16V"' &n=
bsp; =20
skip 1 &
tab 1 '!F B S 399 1015 L 4 938=20
0' =
; =20
skip 1 &
tab 1 '!F B S 143 1014 L 4 938=20
0' =
; =20
skip 1 &
tab 1 '!F T S 361 993 L 1 1 2=20
"Routing"' =
; =20
skip 1 &
tab 1 '!F T S 361 798 L 9 0 43=20
"%18V"' &n=
bsp; =20
skip 1 &
tab 1 '!F T S 325 799 L 9 0 43=20
"%19V"' &n=
bsp; =20
skip 1 &
tab 1 '!F T S 286 797 L 9 0 43=20
"%20V"' &n=
bsp; =20
skip 1 &
tab 1 '!F T S 249 797 L 9 0 43=20
"%21V"' &n=
bsp; =20
skip 1 &
tab 1 '!F T S 210 798 L 9 0 43=20
"%22V"' &n=
bsp; =20
skip 1 &
tab 1 '!F T S 172 796 L 9 0 43=20
"%23V"' &n=
bsp; =20
skip 1 &
tab=20
1 =
&=
nbsp; &n=
bsp; &nb=
sp; =20
&
'!F T S 26 249 L 3 0 31 "Copyright 1999 ScanConsult=20
IT-Partners"'&
&nbs=
p; =
; =
&=
nbsp; =20
skip 3
; *** The data-block =
is created by=20
the report-statement ***
report &nbs=
p; =
; =
&=
nbsp; &n=
bsp;=20
&
tab 1=20
"!R" =
; =
&=
nbsp; =20
skip 1 &
tab 1=20
carrier =
&=
nbsp; &n=
bsp; =20
skip 1 &
tab 1=20
prf &nbs=
p; =
; =
=20
skip 1 &
tab 1=20
cityoff =
&=
nbsp; &n=
bsp; =20
skip 2 &
tab 1=20
snr &nbs=
p; =
; =
=20
skip 1 &
tab 1=20
tnop_ch =
&=
nbsp; &n=
bsp; =20
skip 1 &
tab 1=20
awbtype =
&=
nbsp; &n=
bsp; =20
skip 1 &
tab 1=20
speccode1 &nbs=
p; =
; =
=20
skip 1 &
tab 1=20
speccode2 &nbs=
p; =
; =
=20
skip 1 &
tab 1=20
totwt &n=
bsp; &nb=
sp; &nbs=
p; =20
skip 1 &
tab 1=20
chgcode =
&=
nbsp; &n=
bsp; =20
skip 1 &
tab 1=20
shipper1 =
; =
&=
nbsp; =20
skip 1 &
tab 1=20
shipper2 =
; =
&=
nbsp; =20
skip 1 &
tab 1=20
shipper3 =
; =
&=
nbsp; =20
skip 1 &
tab 1=20
consignee1 &nb=
sp; &nbs=
p; =
; =20
skip 1 &
tab 1=20
consignee2 &nb=
sp; &nbs=
p; =
; =20
skip 1 &
tab 1=20
consignee3 &nb=
sp; &nbs=
p; =
; =20
skip 1 &
tab 1=20
routing1 =
; =
&=
nbsp; =20
skip 1 &
tab 1=20
routing2 =
; =
&=
nbsp; =20
skip 1 &
tab 1=20
routing3 =
; =
&=
nbsp; =20
skip 1 &
tab 1=20
routing4 =
; =
&=
nbsp; =20
skip 1 &
tab 1=20
routing5 =
; =
&=
nbsp; =20
skip 1 &
tab 1=20
routing6 =
; =
&=
nbsp; =20
skip 1 &
tab 1 copies_ch ; =
*** This=20
is the 'print'-command ***
For interpretation =
of the=20
individual lines (!F T S... etc.), refer to the MARKPOINT =
manual.
Hope this helps - =
also for other=20
type 2 label printers.
/Ole =
Hansen
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
E-mail=
:=20
oh@scanconsult.dk =
=
Cell Phone: +45 40 40 11=20
50
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
ScanConsu=
lt=20
IT-Partners=20
ApS &nbs=
p; =20
Voice : +45 87 38 74 74
Jegstrupvej=20
96A &nbs=
p; =
; =20
Fax : +45 87 38 74 75
DK-8361=20
Hasselager &nb=
sp; =20
Support : support@scanconsult.dk
Denm=
ark &nbs=
p; =
; =20
Sales : sales@scanconsult.dk
&n=
bsp; &nb=
sp; =20
http://www.scanconsult.dk
=3D=3D=
=3D =20
ParaSuite : A Suite of Air Cargo Handling=20
solutions =
=3D=3D=3D
=3D=3D=3D =20
ParaSafe : A Suite of IT-Security=20
solutions &nbs=
p;=20
=3D=3D=3D
=3D=3D=3D We partner with Hewlett-Packard, =
Cognos, Lotus and=20
others =3D=3D=3D
-----Oprindelig=20
meddelelse-----
Fra: mike53 <mike53@computelnet.com>
=
Til:=20
powerh-l@lists.swau.edu=20
<powerh-l@lists.swau.edu>Dato:=20
7. september 2001 01:30
Emne: =
Bar-Code
Need help example on how to print bar-code=20
labels.
Dennis M. =
Blair