--- dao/DelphiScanner/LabelPrint.pas 2016/08/22 21:46:10 3100 +++ dao/DelphiScanner/LabelPrint.pas 2016/08/22 21:58:10 3101 @@ -22,14 +22,12 @@ procedure PrintSimpelLabel( LabelData : TLabelData) ; + procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData); - procedure PrintFuldPakkeLabelLille( PakkeshopLabel : TLabelData); - procedure PrintFuldPakkeLabelStor( PakkeshopLabel : TLabelData); procedure PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ; - procedure PrintZPL( ZplData : string); function GetPrinterCount() : Integer; @@ -39,6 +37,12 @@ var Config: TConfiguration; + procedure PrintZPL( ZplData : string); + + procedure PrintFuldPakkeLabelLille( PakkeshopLabel : TLabelData); + procedure PrintFuldPakkeLabelStor( PakkeshopLabel : TLabelData); + + function SavePChar(p: PChar): PChar; function GetCurrentPrinterHandle(): THandle;