Используй системные диалоги для печати (API)
Function long PrintDlgA(REF PRINTDLG PrintDlg) library "comdlg32.dll"

/* ================================================
Shows the print dialog box...

Members:
integer FromPage // Print from page
integer ToPage // Print to page
integer MinPage // Min page (smaller page)
integer MaxPage // Max page (higher page)
PROTECTEDWRITE integer Copies = 1 // Nº of copies to print...
==================================================*/

PRINTDLG PrintDlg
DEVMODE DevMode
DEVNAMES DevNames
long pDevMode //,pDevNames

PrintDlg.lStructSize = 66
PrintDlg.hWndOwner = hWndParent
PrintDlg.hDevMode = 0
PrintDlg.hDevNames = 0
PrintDlg.hDC = 0
PrintDlg.Flags = Flags
PrintDlg.nFromPage = FromPage
PrintDlg.nToPage = ToPage
PrintDlg.nMinPage = MinPage
PrintDlg.nMaxPage = MaxPage
PrintDlg.nCopies = 0
PrintDlg.hInstance = 0
PrintDlg.lCustData = 0
PrintDlg.lpfnPrintHook = 0
PrintDlg.lpfnSetupHook = 0
PrintDlg.lpPrintTemplateName = 0
PrintDlg.lpSetupTemplateName = 0
PrintDlg.hPrintTemplate = 0
PrintDlg.hSetupTemplate = 0

If PrintDlgA(PrintDlg) = 1 Then

pDevMode = LocalLock(PrintDlg.hDevMode)
GetDevMode(DevMode,pDevMode,148) // Lock dynamic memory handle
LocalUnlock(pDevMode) // Unlock dynamic memory handle

//pDevNames = LocalLock(PrintDlg.hDevNames)
//GetDevNames(DevNames,pDevNames,8) // Lock dynamic memory handle
//LocalUnlock(pDevNames) // Unlock dynamic memory handle

FromPage = PrintDlg.nFromPage
ToPage = PrintDlg.nToPage
MinPage = PrintDlg.nMinPage
MaxPage = PrintDlg.nMaxPage
Copies = PrintDlg.nCopies

// Copies are provided by devmode..
If Copies = 1 Then Copies = DevMode.dmCopies

// Set default printer in registry
//
// SetPrinter(String(pDevNames + DevNames.wDeviceOffset,"address"), &
// String(pDevNames + DevNames.wDriverOffset,"address"), &
// String(pDevNames + DevNames.wOutPutOffset,"address"))


Return(True)

End If

Return(False)