I had this problem a few month ago and the solution that I have found at this time was to open the printer like a file and then write to it.
Just like this:

   Open "lpt1" For Output As #1 'printername can be a network printer like "\\SERVER\HPLaserJ"
     Print #1, vbCrLf;
     Print #1, "Hello world"
   Close #1

HTH