NAME

   Printer::ESCPOS - Interface for all thermal, dot-matrix and other
   receipt printers that support ESC-POS specification.

VERSION

   version 0.009

SYNOPSIS

   If you are just starting up with POS RECEIPT Printers, you must first
   refer to Printer::ESCPOS::Manual to get started.

   Printer::ESCPOS provides four different types of printer connections
   to talk to a ESCPOS printer. Among these connection types 'Serial',
   'Network', 'File' are already implemented in this module. 'USB' type
   using Device::USB module is under development. In the meantime most
   of the printing tasks for USB connected printer can be achieved using
   the 'File' connection mode for usb connected ESCPOS printers.

        use Printer::ESCPOS;

        use Data::Dumper; # Just to get dumps of status functions.


        #########################################################
        BEGIN: Network Printer
        #########################################################
        # For Network Printers $port is 9100 in most cases but might differ depending on how
        # you have configured your printer
        my $printer_id = '192.168.0.10';
        my $port       = '9100';
        my $device = Printer::ESCPOS->new(
            driverType => 'Network',
            deviceIp   => $printer_ip,
            devicePort => $port,
        );
        $device->printer->init(); # This calls the initialization functions for your printer.

        # These commands won't actually send anything to the printer but will store all the
        # merged data including control codes to module buffer.
        $device->printer->printAreaWidth( nL => 0, nH => 1);
        $device->printer->write("Print Area Width Modified\n");
        $device->printer->printAreaWidth(); # Reset to default
        $device->printer->write("print area width reset\n");
        $device->printer->tab();
        $device->printer->underline(1);
        $device->printer->write("underline on\n");
        $device->printer->invert(1);
        $device->printer->write("Inverted Text\n");
        $device->printer->justification('right');
        $device->printer->write("Right Justified\n");
        $device->printer->upsideDown(1);
        $device->printer->write("Upside Down\n");
        $device->printer->cutPaper();

        $device->printer->print(); # Dispatch the above commands from module buffer to the Printer.
                                   # This command takes care of read write buffers for the printer.


        #########################################################
        BEGIN: Serial Printer
        #########################################################
        # Use the Serial mode for local printer connected on serial port(or a printer connected via
        # a physical USB port in USB to Serial mode), check syslog(Usually under /var/log/syslog)
        # for what device file was created for your printer when you connect it to your system(For
        # plug and play printers).
        my $path = '/dev/ttyACM0';
        $device = Printer::ESCPOS->new(
            driverType     => 'Serial',
            deviceFilePath => $path,
        );
        $device->printer->init(); # This calls the initialization functions for your printer.

        say Dumper $device->printer->printerStatus();
        say Dumper $device->printer->offlineStatus();
        say Dumper $device->printer->errorStatus();
        say Dumper $device->printer->paperSensorStatus();

        $device->printer->bold(1);
        $device->printer->write("Bold Text\n");
        $device->printer->bold(0);
        $device->printer->write("Bold Text Off\n");

        $device->printer->print();


        #########################################################
        BEGIN: File(Direct to Device File) Printer
        #########################################################
        # A 'File' driver is similar to the 'Serial' driver in all functionality except that it
        # doesn't support the status functions for the printer. i.e. you will not be able to use
        # printerStatus, offlineStatus, errorStatus or paperSensorStatus functions
        my $path = '/dev/usb/lp0';
        $device = Printer::ESCPOS->new(
            driverType     => 'File',
            deviceFilePath => $path,
        );

DESCRIPTION

   You can use this module for all your ESC-POS Printing needs. If some
   of your printer's functions are not included, you may extend this
   module by adding specialized funtions for your printer in it's own
   subclass. Refer to Printer::ESCPOS::Roles::Profile and
   Printer::ESCPOS::Profiles::Generic

ATTRIBUTES

driverType

   "Required attribute". The driver type to use for your printer. This
   can be File, Network or Serial. USB driver is not implemented yet. If
   you choose File or Serial driver, you must provide the
   deviceFilePath, for Network driver you must provide the printerIp and
   printerPort.

   Network driver type:

       my $printer_id = '192.168.0.10';
       my $port       = '9100';
       my $device = Printer::ESCPOS->new(
           driverType => 'Network',
           deviceIp   => $printer_ip,
           devicePort => $port,
       );

   Serial driver type:

       my $path = '/dev/ttyACM0';
       $device = Printer::ESCPOS->new(
           driverType     => 'Serial',
           deviceFilePath => $path,
       );

   File driver type:

       my $path = '/dev/usb/lp0';
       $device = Printer::ESCPOS->new(
           driverType     => 'File',
           deviceFilePath => $path,
       );

profile

   There are minor differences in ESC POS printers across different
   brands and models in terms of specifications and extra features. For
   using special features of a particular brand you may create a sub
   class in the name space Printer::ESCPOS::Profiles::* and load your
   profile here. I would recommend extending Generic (
   Printer::ESCPOS::Profiles::Generic ). Use the following classes as
   examples. Printer::ESCPOS::Profiles::Generic
   Printer::ESCPOS::Profiles::SinocanPSeries

   Note that your driver class will have to implement the
   Printer::ESCPOS::Roles::Profile Interface. This is a Moose Role and
   can be included in your class with the following line.

       use Moose;
       with 'Printer::ESCPOS::Roles::Profile';

   By default the generic profile is loaded but if you have written your
   own Printer::ESCPOS::Profile::* class and want to override the
   generic class pass the profile Param during object creation.

       my $device = Printer::ESCPOS->new(
           driverType => 'Network',
           deviceIp   => $printer_ip,
           devicePort => $port,
           profile    => 'USERCUSTOM'
       );

   The above $device object will use the
   Printer::ESCPOS::Profile::USERCUSTOM profile.

deviceFilePath

   File path for UNIX device file. e.g. "/dev/ttyACM0" this is a
   mandatory parameter if you are using File or Serial driverType.

deviceIP

   Contains the IP address of the device when its a network printer. The
   module creates IO:Socket::INET object to connect to the printer. This
   can be passed in the constructor.

devicePort

   Contains the network port of the device when its a network printer.
   The module creates IO:Socket::INET object to connect to the printer.
   This can be passed in the constructor.

baudrate

   When used as a local serial device you can set the baudrate of the
   printer too. Default (38400) will usually work, but not always.

serialOverUSB

   Set this value to 1 if you are connecting your printer using the USB
   Cable but it shows up as a serial device and you are using the Serial
   driver.

printer

   Use this attribute to send commands to the printer

       $device->printer->setFont('a');
       $device->printer->write("blah blah blah\n");

USAGE

   Refer to the following manual to get started with Printer::ESCPOS

     * Printer::ESCPOS::Manual

Quick usage summary in steps:

     1. Create a device object $device by providing parameters for one
     of the supported printer types. Call $device->printer->init to
     initialize the printer.

     2. call write() and other Text formatting functions on
     $device->printer for the data to be sent to the printer. Make sure
     to end it all with a linefeed $device->printer->lf().

     3. Then call the print() method to dispatch the sequences from the
     module buffer to the printer

        $device->printer->print()

   Note: While you may call print() after every single command code,
   this is not advisable as some printers tend to choke up if you send
   them too many print commands in quick succession. To avoid this,
   aggregate the data to be sent to the printer with write() and other
   text formatting functions and then send it all in one go using
   print() at the very end.

NOTES

     * In Serial mode if the printer prints out garbled characters
     instead of proper text, try specifying the baudrate parameter when
     you create the printer object. The default baudrate is set at 38400

        $device = Printer::ESCPOS->new(
            driverType     => 'Serial',
            deviceFilePath => $path,
            baudrate       => 9600,
        );

     * For ESC-P codes refer the guide from Epson
     http://support.epson.ru/upload/library_file/14/esc-p.pdf

SUPPORT

Bugs / Feature Requests

   Please report any bugs or feature requests through github at
   https://github.com/shantanubhadoria/perl-printer-escpos/issues. You
   will be notified automatically of any progress on your issue.

Source Code

   This is open source software. The code repository is available for
   public review and contribution under the terms of the license.

   https://github.com/shantanubhadoria/perl-printer-escpos

     git clone git://github.com/shantanubhadoria/perl-printer-escpos.git

AUTHOR

   Shantanu Bhadoria <[email protected]>
   https://www.shantanubhadoria.com

CONTRIBUTOR

   Shantanu Bhadoria <shantanu att cpan dott org>

COPYRIGHT AND LICENSE

   This software is copyright (c) 2015 by Shantanu Bhadoria.

   This is free software; you can redistribute it and/or modify it under
   the same terms as the Perl 5 programming language system itself.