HOW - Printing an EPS file using VB6
At a minimum you will have to "tell" the printr that the dat ais PS and not the printer native language
I an trying to print EPS Level2 files to printer.
I have tryed the following code. It just prints the EPS code to the PS printer.
PRIVATE sub PRINTEPS()
Dim rsEPSPlate As DAO.Recordset
Set rsEPSPlate = dbIPRINT.OpenRecordset("EPS_Plate", dbOpenTable)
Do While Not rsEPSPlate.EOF
Printer.Print (rsEPSPlate.Fields("EPS_Code"))
rsEPSPlate.MoveNext
Loop
rsEPSPlate.Close
Printer.EndDoc
Set rsEPSPlate = Nothing
END sub
I know the EPS code is good. I can write it to a file and open it in Ghost Script and print it.
