' Determine which escape codes to send printer
' Initialize the printer and set to Epson FX Emulation
rph.SendStringToPrinter(_pDoc.PrinterSettings.PrinterName, Chr(27) & Chr(64))
rph.SendStringToPrinter(_pDoc.PrinterSettings.PrinterName, Chr(27) & Chr(123) & Chr(65))
Select Case _CPI
Case CharactersPerInch.Pica10
rph.SendStringToPrinter(_pDoc.PrinterSettings.PrinterName, Chr(27) & Chr(18)) ' Cancel Compressed Print
rph.SendStringToPrinter(_pDoc.PrinterSettings.PrinterName, Chr(27) & Chr(80)) ' 10 CPI
Case CharactersPerInch.Pica12
rph.SendStringToPrinter(_pDoc.PrinterSettings.PrinterName, Chr(27) & Chr(18)) ' Cancel Compressed Print
rph.SendStringToPrinter(_pDoc.PrinterSettings.PrinterName, Chr(27) & Chr(77)) ' 12 CPI
Case CharactersPerInch.Pica15
rph.SendStringToPrinter(_pDoc.PrinterSettings.PrinterName, Chr(27) & Chr(18)) ' Cancel Compressed Print
rph.SendStringToPrinter(_pDoc.PrinterSettings.PrinterName, Chr(27) & Chr(103)) ' 15 CPI
Case CharactersPerInch.Pica17
rph.SendStringToPrinter(_pDoc.PrinterSettings.PrinterName, Chr(27) & Chr(15)) ' Select Compressed Print
rph.SendStringToPrinter(_pDoc.PrinterSettings.PrinterName, Chr(27) & Chr(80)) ' 10 CPI
Case CharactersPerInch.Pica20
rph.SendStringToPrinter(_pDoc.PrinterSettings.PrinterName, Chr(27) & Chr(15)) ' Select Compressed Print
rph.SendStringToPrinter(_pDoc.PrinterSettings.PrinterName, Chr(27) & Chr(77)) ' 12 CPI
End Select
Select Case _PrintQuality
Case PrintQuality.HSD
rph.SendStringToPrinter(_pDoc.PrinterSettings.PrinterName, Chr(27) & Chr(40) & Chr(48)) ' SSD/HSD
Case PrintQuality.NLQ
rph.SendStringToPrinter(_pDoc.PrinterSettings.PrinterName, Chr(27) & Chr(120) & Chr(49)) ' NLQ
rph.SendStringToPrinter(_pDoc.PrinterSettings.PrinterName, Chr(27) & Chr(107) & Chr(1)) ' NLQ
Case PrintQuality.UTL
rph.SendStringToPrinter(_pDoc.PrinterSettings.PrinterName, Chr(27) & Chr(120) & Chr(0)) ' UTL
End Select