Louise wrote:I want with a new settings to print a text...
...I want to a dialog with the predefined settings to be print.
Hello Louise. This example gets the default printer, configures some presets, and prints some text to it, using Windows API functions:
Code: Select all
If OpenLibrary(0, "winspool.drv")
defaultPrinterName.s = Space(#MAX_PATH)
If GetVersion_() & $FF0000 ;Windows 2000/NT/XP
returnBuffer = #MAX_PATH
;for UNICODE use GetDefaultPrinterW
CallFunction(0, "GetDefaultPrinterA", @defaultPrinterName, @returnBuffer)
Else ;Windows 95/98/ME
GetPrivateProfileString_("WINDOWS", "DEVICE", "", @defaultPrinterName, #MAX_PATH, "Win.Ini")
defaultPrinterName = StringField(defaultPrinterName, 1, ",")
EndIf
Debug defaultPrinterName
CloseLibrary(0)
Define printDriver.s = "WINSPOOL", printerName.s = defaultPrinterName
Define *sysDEVMODE, *userDEVMODE, *contextDEVMODE.DEVMODE, docInfo.DOCINFO
If OpenPrinter_(printerName, @printerHandle, 0)
returnBuffer = DocumentProperties_(0, printerHandle, printerName, 0, 0, 0)
*sysDEVMODE = AllocateMemory(returnBuffer)
*userDEVMODE = AllocateMemory(returnBuffer)
DocumentProperties_(0, printerHandle, printerName, *sysDEVMODE, *userDEVMODE, #DM_OUT_BUFFER)
*contextDEVMODE = *sysDEVMODE
ClosePrinter_(printerHandle)
FreeMemory(*sysDEVMODE)
FreeMemory(*userDEVMODE)
With *contextDEVMODE
\dmOrientation = #DMORIENT_PORTRAIT
\dmPaperSize = #DMPAPER_A4
\dmPrintQuality = #DMRES_DRAFT
\dmCollate = #DMCOLLATE_TRUE
\dmCopies = 1
EndWith
With docInfo
\cbSize = SizeOf(DOCINFO)
\lpszDocName = @"PureBasic Test Print"
\lpszOutput = #Null
EndWith
printerDC = CreateDC_(@printDriver, printerName, 0, *contextDEVMODE)
jobId = StartDoc_(printerDC, @docInfo)
StartPage_(printerDC)
outString.s = "Prints on page 1..."
TextOut_(printerDC, 200, 200, outString, Len(outString))
EndPage_(printerDC)
StartPage_(printerDC)
outString = "Prints on page 2..."
TextOut_(printerDC, 200, 200, outString, Len(outString))
EndPage_(printerDC)
EndDoc_(printerDC)
DeleteDC_(printerDC)
EndIf
EndIf
Hope you'll find it useful.
