Jump to content

RTF_Printer.au3 - UDF - Printing RichEdit

mLipok

By mLipok,
in AutoIt Example Scripts

 Share

Recommended Posts

mLipok Universalist

mLipok

Posted
Posted (edited)

First I want to thanks to RoyGlanfield for : Printing RichEdit
 


 
A long time ago I was wondering how to print RTF files in the background.
I just used to use this solution: 
ShellExecuteWait($sRTF_FileFullPath, '', '', 'print')

Unfortunately, it is slow and is not done, in the background.
 
 
A few days ago I was looking for a solution through google.
I found a solution at home  :) and exactly here.
 
I modified it a little, and behold, here it is:

#include-once
#AutoIt3Wrapper_Au3Check_Parameters=-q -d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w- 7
#Tidy_Parameters=/sort_funcs /reel

#Region RTF PRINTER Include#

#include <GuiRichEdit.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <SendMessage.au3>
#include <Array.au3>

#EndRegion RTF PRINTER Include#

#Region RTF PRINTER HEADER#
; #INDEX# =======================================================================================================================
; Title .........: UDF for Printing RTF files
; AutoIt Version : 3.3.10.2++
; Language ......: English
; Description ...: UDF for Printing RTF files
; Author(s) .....: mLipok, RoyGlanfield
; Modified ......:
; ===============================================================================================================================
#cs
    Title:   UDF for Printing RTF files
    Filename:  RTF_Printer.au3
    Description: UDF for Printing RTF files
    Author:   RoyGlanfield, mLipok
    Modified:
    Last Update: 2014/06/15
    Requirements:
    AutoIt 3.3.10.2 or higher

    http://www.autoitscript.com/forum/topic/127580-printing-richedit/
    http://www.autoitscript.com/forum/topic/161831-rtf-printer-printing-richedit/


    Update History:
    ===================================================
    2014/06/04
    v0.1 First official version

    2014/06/04
    v0.2
    * Global Variable renaming by adding $__
    * extended $__API_RTF_Printer
    * new function: _RTF_SetMargins($vMarginLeft = 1, $vMarginTop = 1, $vMarginRight = 1, $vMarginBottom = 1)
    * new function: _RTF_SetNumberOfCopies($iNumberOfCopies = 1)
    * added #Region RTF PRINTER initialization#
    * CleanUp
    * added #forceref
    * added #AutoIt3Wrapper_Au3Check_Parameters=-q -d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w- 7


    2014/06/12
    v0.3
    * Global Variable Renaming add 'RTF' to variable names and added $__ to be sure that no one else used the name
    * Global Variable renaming $aPageInfo to $__aRTFPageInfo to be sure that no one else used the name
    * variable renaming $hInput* to $iCtrlInput*
    * in _RTF_PrintFile() new parameter $fAddIndex
    * Setting RTF_Printer Window Title
    * fix problem with printing more than 16 RTF files >>  GUIDelete($__API_RTF_Printer[$__hRTF_Gui])
    * new internal function __RTF_AddLeadingZeros
    * added some more comments
    * brand new RTF_Printer_Examples.au3

    2014/06/15
    v0.4
    * $sRTF_FileFullPath_or_Stream   - A string value. Full path to the RTF file to be printed or Stream Data from _GUICtrlRichEdit_StreamToVar
    *       Now you can create documents in RichEdit and print them without the need to save the RTF file.
    *       You can also download the documents from the database and print them without having to save them to disk as RTF files.
    * new RTF_Printer_Examples.au3
    * new #Region MSDN Links , Help, Doc
    * some minior variable renaming

#CE

#EndRegion RTF PRINTER HEADER#

#Region RTF PRINTER Constants#

; #CONSTANTS# ===================================================================================================================
; $__<UDF>_CONSTANT_<NAME>
Global Const $__PDtags = "align 1 ;DWORD lStructSize;" & _
        "HWND hwndOwner;" & _
        "handle hDevMode;" & _
        "handle hDevNames;" & _
        "handle hDC;" & _
        "DWORD Flags;" & _
        "WORD nFromPage;" & _
        "WORD nToPage;" & _
        "WORD nMinPage;" & _
        "WORD nMaxPage;" & _
        "WORD nCopies;" & _
        "handle hInstance;" & _
        "LPARAM lCustData;" & _
        "ptr lpfnPrintHook;" & _
        "ptr lpfnSetupHook;" & _
        "ptr lpPrintTemplateName;" & _
        "ptr lpSetupTemplateName;" & _
        "handle hPrintTemplate;" & _
        "handle hSetupTemplate"

Global Enum _
        $__hRTF_dcc, _
        $__hRTF_Gui, $__hRichEditE, $__hRTF_RichEditPre, _
        $__iRTFLabelPagegNow, $__iRTFLabelPagesTotal, _
        $__vRTFMarginTop, $__vRTFMarginLeft, $__vRTFMarginRight, $__vRTFMarginBottom, _
        $__iRTFNumberOfCopies, _
        $__API_RTF_Printer_Count
; , $tDefaultPrinter, _

#EndRegion RTF PRINTER Constants#

#Region RTF PRINTER Global Variables#

Global $__API_RTF_Printer[$__API_RTF_Printer_Count]
Global $__aRTFPageInfo[2]; $__aRTFPageInfo[0]= total num of pages   $__aRTFPageInfo[1.....] = 1st char number of each page

#EndRegion RTF PRINTER Global Variables#

#Region RTF PRINTER initialization#

_RTF_SetMargins()
_RTF_SetNumberOfCopies()

#EndRegion RTF PRINTER initialization#

#Region RTF PRINTER CURRENT#

; #FUNCTION# ====================================================================================================================
; Name ..........: _RTF_PrintFile
; Description ...: Print Selected File in the background or with custom window dialog
; Syntax ........: _RTF_PrintFile($sRTF_FileFullPath_or_Stream[, $sDocTitle = Default[, $fPrintNow = True[, $fAddIndex = False]]])
; Parameters ....: $sRTF_FileFullPath_or_Stream   - A string value. Full path to the RTF file to be printed or Stream Data from _GUICtrlRichEdit_StreamToVar
;                  $sDocTitle           - [optional] A string value. Default is Default. If Default then $sDocTitle = FileName
;                  $fPrintNow           - [optional] A boolean value. Default is True. If true then printing is running in the background.
;                  $fAddIndex           - [optional] A boolean value. Default is False. If true then add Indexing to Document Name in spooler
; Return values .: None ; TODO
; Author ........: mLipok, RoyGlanfield
; Modified ......:
; Remarks .......:
; Related .......:
; Link ..........: http://www.autoitscript.com/forum/topic/161831-rtf-printer-printing-richedit/
; Example .......: No
; ===============================================================================================================================
Func _RTF_PrintFile($sRTF_FileFullPath_or_Stream, $sDocTitle = Default, $fPrintNow = True, $fAddIndex = False)
    Static $__iRTF_Printer_Counter
    If $__iRTF_Printer_Counter = '' Then $__iRTF_Printer_Counter = 1

    ; chcecking if Streamed Data insteed FileFullPath
    If StringLeft($sRTF_FileFullPath_or_Stream, 5) = '{\rtf' Then
        If $sDocTitle = Default Then
            $sDocTitle = 'RichEdit Data'
        EndIf
    Else
        If Not FileExists($sRTF_FileFullPath_or_Stream) Then Return -1

        ; setting DocTitle (document Name in spooler) - if Default then FileName
        If $sDocTitle = Default Then
            $sDocTitle = StringRegExp($sRTF_FileFullPath_or_Stream, '(?i).+\\(.+)', 3)[0]
        EndIf
    EndIf

    ; adding index (as prefix) to the DocTitle (document Name in spooler)
    If $fAddIndex Then
        $sDocTitle = __RTF_AddLeadingZeros(String($__iRTF_Printer_Counter), 5) & '_' & $sDocTitle
    EndIf

    Local $hPrintDc = ''
    #forceref $hPrintDc

    Local $__aRTFPageInfo[2]; $__aRTFPageInfo[0]= total num of pages   $__aRTFPageInfo[1.....] = 1st char number of each page
    Local $iPageInPreview = 1 ; the Page Now on show in the preview

    ; Printer dialog tags
    Local $tDefaultPrinter = __GetDefaultPrinter()

    ; Setting RTF_Printer Window Title
    Local $sRTF_Printer_Title = 'Print RTF ---- ' & $tDefaultPrinter
    $sRTF_Printer_Title = '[' & String($__iRTF_Printer_Counter) & '] ' & $sRTF_Printer_Title

    $__API_RTF_Printer[$__hRTF_Gui] = GUICreate($sRTF_Printer_Title, 430, 580, -1, -1)

    ; Control whose contents is to be printed--------MUST be RichEdit.
    ; any size will do---- has no effect on the printed copy
    $__API_RTF_Printer[$__hRichEditE] = _GUICtrlRichEdit_Create($__API_RTF_Printer[$__hRTF_Gui], "", 10, 50, 400, 124, $ES_MULTILINE + $WS_VSCROLL) ;+ $ES_AUTOVSCROLL)

    ; 21000 push the preview control off the page
    ; to be resized and positioned after paper size and orientation has been chosen [print dialog or default]
    $__API_RTF_Printer[$__hRTF_RichEditPre] = _GUICtrlRichEdit_Create($__API_RTF_Printer[$__hRTF_Gui], "", 21000, 10, 10, 10, $ES_MULTILINE) ;+ $ES_AUTOVSCROLL)

    $__API_RTF_Printer[$__iRTFLabelPagegNow] = GUICtrlCreateLabel("0", 60, 180, 40, 20, $SS_RIGHT)
    GUICtrlCreateLabel(" of ", 100, 180, 20, 20, $SS_Center)
    $__API_RTF_Printer[$__iRTFLabelPagesTotal] = GUICtrlCreateLabel("0", 120, 180, 40, 20, $SS_Left)

    Local $iButtonBack = GUICtrlCreateButton("Back", 160, 180, 50, 20)
    Local $iButtonNext = GUICtrlCreateButton("Next", 210, 180, 50, 20)
    Local $iButtonPrintNow = GUICtrlCreateButton("PrintNow", 280, 180, 100, 20)

    Local $EndPage = ''
    #forceref $EndPage
    GUICtrlCreateLabel('Margins-->', 0, 3, 50, 20)
    GUICtrlCreateLabel(' cm--->', 0, 30, 40, 20)
    GUICtrlCreateLabel('Left', 50, 3, 30, 15)
    GUICtrlCreateLabel('Top', 80, 3, 40, 15)
    GUICtrlCreateLabel('Right', 120, 3, 40, 15)
    GUICtrlCreateLabel('Bottom', 160, 3, 40, 15)
    GUICtrlCreateLabel('Copies', 230, 3, 40, 15)
    Local $iCtrlInputMarginLeft = GUICtrlCreateInput($__API_RTF_Printer[$__vRTFMarginLeft], 40, 18, 40, 30, $ES_READONLY)
    GUICtrlCreateUpdown(-1)
    GUICtrlSetLimit(-1, 4, 0)

    Local $iCtrlInputMarginTop = GUICtrlCreateInput($__API_RTF_Printer[$__vRTFMarginTop], 80, 18, 40, 30, $ES_READONLY)
    GUICtrlCreateUpdown(-1)
    GUICtrlSetLimit(-1, 4, 0)

    Local $iCtrlInputMarginRight = GUICtrlCreateInput($__API_RTF_Printer[$__vRTFMarginRight], 120, 18, 40, 30, $ES_READONLY)
    GUICtrlCreateUpdown(-1)
    GUICtrlSetLimit(-1, 4, 0)

    Local $iCtrlInputMarginBottom = GUICtrlCreateInput($__API_RTF_Printer[$__vRTFMarginBottom], 160, 18, 40, 30, $ES_READONLY)
    GUICtrlCreateUpdown(-1)
    GUICtrlSetLimit(-1, 4, 0)

    Local $iCtrlInputNumberOfCopies = GUICtrlCreateInput($__API_RTF_Printer[$__iRTFNumberOfCopies], 230, 25, 40, 20)
    Local $iButtonPrint = GUICtrlCreateButton("Print", 280, 5, 55, 20)
    Local $iButtonPrintGeneral = GUICtrlCreateButton("General", 280, 25, 60, 20)
    Local $iButtonPrintSetup = GUICtrlCreateButton("Print Setup", 335, 5, 75, 20)
    Local $iButtonNoDialog = GUICtrlCreateButton("No dialog", 340, 25, 70, 20)
    ; chcecking if Streamed Data insteed FileFullPath
    If StringLeft($sRTF_FileFullPath_or_Stream, 5) = '{\rtf' Then
        _GUICtrlRichEdit_StreamFromVar($__API_RTF_Printer[$__hRichEditE], $sRTF_FileFullPath_or_Stream)
    Else
        _GUICtrlRichEdit_StreamFromFile($__API_RTF_Printer[$__hRichEditE], $sRTF_FileFullPath_or_Stream)
    EndIf
    ; TrayTip('_GUICtrlRichEdit_StreamFromFile',@error,4) ; for test only

    If $fPrintNow = False Then
        GUISetState()
    EndIf

    ; this does not work ---$r = _GUICtrlRichEdit_SetZoom($__API_RTF_Printer[$__hRichEditE], 1/2)--------------
    ; Below works well---but does have to be reset after anything is streamed in------
    ; OK--------$r = _SendMessage($h_RichEdit, $EM_SETZOOM, $tDefaultPrinterominator, $denominator)
    ; $r = _SendMessage($__API_RTF_Printer[$__hRichEditE], $EM_SETZOOM, 1000, 2333) ; must be integer -- "1000, 2333"  not "1, 2.333"
    ; $r = _SendMessage($__API_RTF_Printer[$__hRichEditE], $EM_SETZOOM, 100, 200) ; eg 50%
    Local $r = _SendMessage($__API_RTF_Printer[$__hRichEditE], $EM_SETZOOM, 100, 300) ; eg 33.3333333333%
    #forceref $r
    ; $r = _SendMessage($__API_RTF_Printer[$__hRTF_RichEditPre], $EM_SETZOOM, 100, 500) ; eg 20%
    Local $z
    Local $iMsg

    If $fPrintNow Then

        ; NO DIALOG

        ; $__API_RTF_Printer[$__iRTFNumberOfCopies] = GUICtrlRead($iCtrlInputNumberOfCopies) ; not needed as only prints 1copy
        ; "No dialog" ---No choices
        ; prints 1 copy using the default printer's settings
        $__API_RTF_Printer[$__hRTF_dcc] = __GetDC_PrinterNoDialog()
        If IsPtr($__API_RTF_Printer[$__hRTF_dcc]) = 1 Then
            $z = __RTF_Preview($__API_RTF_Printer[$__hRTF_dcc], $__API_RTF_Printer[$__hRichEditE], $__API_RTF_Printer[$__vRTFMarginLeft], $__API_RTF_Printer[$__vRTFMarginTop], $__API_RTF_Printer[$__vRTFMarginRight], $__API_RTF_Printer[$__vRTFMarginBottom])
        EndIf

        ; PRINT NOW

        ; "Print Setup" dialog ---choices
        ; number of copies
        ; portrait/landscape choice
        ; paper size
        If IsPtr($__API_RTF_Printer[$__hRTF_dcc]) = 1 Then
            __RTF_Print($__API_RTF_Printer[$__hRTF_dcc], $__API_RTF_Printer[$__hRichEditE], $sDocTitle, $__API_RTF_Printer[$__vRTFMarginLeft], $__API_RTF_Printer[$__vRTFMarginTop], $__API_RTF_Printer[$__vRTFMarginRight], $__API_RTF_Printer[$__vRTFMarginBottom])
            $__iRTF_Printer_Counter += 1
        Else

        EndIf
        $hPrintDc = ''
        ; GUISetState() ; for test only
        ; Sleep(3000) ; for test only
    Else
        While 1
            Sleep(10)
            $__API_RTF_Printer[$__vRTFMarginLeft] = GUICtrlRead($iCtrlInputMarginLeft)
            $__API_RTF_Printer[$__vRTFMarginTop] = GUICtrlRead($iCtrlInputMarginTop)
            $__API_RTF_Printer[$__vRTFMarginRight] = GUICtrlRead($iCtrlInputMarginRight)
            $__API_RTF_Printer[$__vRTFMarginBottom] = GUICtrlRead($iCtrlInputMarginBottom)
            $__API_RTF_Printer[$__iRTFNumberOfCopies] = GUICtrlRead($iCtrlInputNumberOfCopies)

            $iMsg = GUIGetMsg()
            Select

                Case $iMsg = $GUI_EVENT_CLOSE

                    GUIDelete()
                    Exit

                Case $iMsg = $iButtonNoDialog; "No dialog"

                    ; $__API_RTF_Printer[$__iRTFNumberOfCopies] = GUICtrlRead($iCtrlInputNumberOfCopies) ; not needed as only prints 1copy
                    ; "No dialog" ---No choices
                    ; prints 1 copy
                    ; using the default printer's settings
                    $__API_RTF_Printer[$__hRTF_dcc] = __GetDC_PrinterNoDialog()
                    If IsPtr($__API_RTF_Printer[$__hRTF_dcc]) = 1 Then
                        $z = __RTF_Preview($__API_RTF_Printer[$__hRTF_dcc], $__API_RTF_Printer[$__hRichEditE], $__API_RTF_Printer[$__vRTFMarginLeft], $__API_RTF_Printer[$__vRTFMarginTop], $__API_RTF_Printer[$__vRTFMarginRight], $__API_RTF_Printer[$__vRTFMarginBottom])
                        MsgBox(4096, '', $z & ' pages sent to the preview.')
                    EndIf

                Case $iMsg = $iButtonPrintSetup; "PrintSetup"

                    ; "Print Setup" dialog ---choices
                    ; number of copies
                    ; portrait/landscape choice
                    ; paper size
                    $__API_RTF_Printer[$__hRTF_dcc] = __GetDC_PrinterSetup($__API_RTF_Printer[$__iRTFNumberOfCopies]) ; OK--
                    If IsPtr($__API_RTF_Printer[$__hRTF_dcc]) = 1 Then
                        $z = __RTF_Preview($__API_RTF_Printer[$__hRTF_dcc], $__API_RTF_Printer[$__hRichEditE], $__API_RTF_Printer[$__vRTFMarginLeft], $__API_RTF_Printer[$__vRTFMarginTop], $__API_RTF_Printer[$__vRTFMarginRight], $__API_RTF_Printer[$__vRTFMarginBottom])
                        MsgBox(4096, '', $z & ' pages sent to the preview.')
                    EndIf

                Case $iMsg = $iButtonPrint; "Print"

                    ; "Print" ---choices--
                    ; number of copies
                    ; Page range---All, from, to, Selection
                    ; NO-- portrait/landscape choice
                    $__API_RTF_Printer[$__hRTF_dcc] = __GetDC_Printer($__API_RTF_Printer[$__iRTFNumberOfCopies]) ; OK--"Print" dialog
                    If IsPtr($__API_RTF_Printer[$__hRTF_dcc]) = 1 Then
                        $z = __RTF_Preview($__API_RTF_Printer[$__hRTF_dcc], $__API_RTF_Printer[$__hRichEditE], $__API_RTF_Printer[$__vRTFMarginLeft], $__API_RTF_Printer[$__vRTFMarginTop], $__API_RTF_Printer[$__vRTFMarginRight], $__API_RTF_Printer[$__vRTFMarginBottom])
                        MsgBox(4096, '', $z & ' pages sent to the preview.')
                    EndIf

                Case $iMsg = $iButtonPrintGeneral; "General"

                    ; "General" ---choices--
                    ; number of copies
                    ; Page range---All,  Selection
                    ; NO-- portrait/landscape choice-----------
                    $__API_RTF_Printer[$__hRTF_dcc] = __GetDC_PrinterGeneral($__API_RTF_Printer[$__hRichEditE], $__API_RTF_Printer[$__iRTFNumberOfCopies])
                    If IsPtr($__API_RTF_Printer[$__hRTF_dcc]) = 1 Then
                        $z = __RTF_Preview($__API_RTF_Printer[$__hRTF_dcc], $__API_RTF_Printer[$__hRichEditE], $__API_RTF_Printer[$__vRTFMarginLeft], $__API_RTF_Printer[$__vRTFMarginTop], $__API_RTF_Printer[$__vRTFMarginRight], $__API_RTF_Printer[$__vRTFMarginBottom])
                        MsgBox(4096, '', $z & ' pages sent to the preview.')
                    EndIf

                Case $iMsg = $iButtonPrintNow;

                    ; "Print Setup" dialog ---choices
                    ; number of copies
                    ; portrait/landscape choice
                    ; paper size
                    If IsPtr($__API_RTF_Printer[$__hRTF_dcc]) = 1 Then
                        MsgBox(4096, '', __RTF_Print($__API_RTF_Printer[$__hRTF_dcc], $__API_RTF_Printer[$__hRichEditE], $sDocTitle, $__API_RTF_Printer[$__vRTFMarginLeft], $__API_RTF_Printer[$__vRTFMarginTop], $__API_RTF_Printer[$__vRTFMarginRight], $__API_RTF_Printer[$__vRTFMarginBottom]))
                    Else

                    EndIf
                    $hPrintDc = ''

                Case $iMsg = $iButtonNext;

                    If $iPageInPreview < $__aRTFPageInfo[0] Then
                        $iPageInPreview += 1
                        __NextPage($iPageInPreview)
                    EndIf

                Case $iMsg = $iButtonBack ;

                    If $iPageInPreview > 1 Then
                        $iPageInPreview -= 1
                        __NextPage($iPageInPreview)
                    EndIf

            EndSelect
        WEnd
    EndIf

    ; CleanUp
    If IsHWnd($__API_RTF_Printer[$__hRTF_Gui]) Then GUIDelete($__API_RTF_Printer[$__hRTF_Gui])
EndFunc   ;==>_RTF_PrintFile

; #FUNCTION# ====================================================================================================================
; Name ..........: _RTF_SetMargins
; Description ...: Set Margins size in cm [centimeters]
; Syntax ........: _RTF_SetMargins([$vMarginLeft = 1[, $vMarginTop = 1[, $vMarginRight = 1[, $vMarginBottom = 1]]]])
; Parameters ....: $vMarginLeft         - [optional] A variant value. Default is 1.
;                  $vMarginTop          - [optional] A variant value. Default is 1.
;                  $vMarginRight        - [optional] A variant value. Default is 1.
;                  $vMarginBottom       - [optional] A variant value. Default is 1.
; Return values .: None
; Author ........: mLipok
; Modified ......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: No
; ===============================================================================================================================
Func _RTF_SetMargins($vMarginLeft = 1, $vMarginTop = 1, $vMarginRight = 1, $vMarginBottom = 1)
    $__API_RTF_Printer[$__vRTFMarginLeft] = $vMarginLeft ; initial minimum Left margin
    $__API_RTF_Printer[$__vRTFMarginTop] = $vMarginTop ; initial minimum Top margin
    $__API_RTF_Printer[$__vRTFMarginRight] = $vMarginRight ; initial minimum Right margin
    $__API_RTF_Printer[$__vRTFMarginBottom] = $vMarginBottom ; initial minimum Bottom margin
EndFunc   ;==>_RTF_SetMargins

; #FUNCTION# ====================================================================================================================
; Name ..........: _RTF_SetNumberOfCopies
; Description ...: Set number of copies
; Syntax ........: _RTF_SetNumberOfCopies([$iNumberOfCopies = 1])
; Parameters ....: $iNumberOfCopies     - [optional] An integer value. Default is 1.
; Return values .: None
; Author ........: mLipok
; Modified ......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: No
; ===============================================================================================================================
Func _RTF_SetNumberOfCopies($iNumberOfCopies = 1)
    $__API_RTF_Printer[$__iRTFNumberOfCopies] = $iNumberOfCopies ; initial number of Copies to print
EndFunc   ;==>_RTF_SetNumberOfCopies
#EndRegion RTF PRINTER CURRENT#

#Region RTF PRINTER INTERNAL#

; #INTERNAL_USE_ONLY# ===========================================================================================================
; Name ..........: __GetDC_PrinterSetup
; Description ...: Get the device context of a "PrinterSetup"  Dialog box
; Syntax ........: __GetDC_PrinterSetup([$iCopies = 1])
; Parameters ....: $iCopies             - [optional] An integer value. Default is 1. Number of copies to print.
; Return values .: Success: Device context
;                  Failure: 0
; Author ........: RoyGlanfield
; Modified ......: mLipok
; Remarks .......: Has choices for -- portrait/landscape, printer, paper size
; Related .......:
; Link ..........: http://www.autoitscript.com/forum/topic/127580-printing-richedit/
; Example .......: No
; ===============================================================================================================================
Func __GetDC_PrinterSetup($iCopies = 1)
    Local $strcPD = DllStructCreate($__PDtags)
    DllStructSetData($strcPD, "lStructSize", DllStructGetSize($strcPD))
    ; DllStructSetData($strcPD, "hwndOwner", $hwnd) ;
    ; Constants--$PD_RETURNDC = 0x100----$PD_PRINTSETUP = 0x40
    DllStructSetData($strcPD, "Flags", 0x100 + 0x40) ; different flags open different dialogue boxes
    DllStructSetData($strcPD, "nCopies", $iCopies) ; set the number of copies
    ;   DllStructSetData($strcPD,"nFromPage", 1) ; start from page #
    ; DllStructSetData($strcPD, "nToPage", 0xFFFF)
    ; DllStructSetData($strcPD, "nMinPage", 1)
    ; DllStructSetData($strcPD, "nMaxPage", 0xFFFF)
    Local $bRet = DllCall("Comdlg32.dll", "int", "PrintDlgW", "ptr", DllStructGetPtr($strcPD))
    Local $hDC = 0
    If $bRet[0] = True Then
        $hDC = DllStructGetData($strcPD, "hDC")
    EndIf
    $strcPD = ''
    Return $hDC
EndFunc   ;==>__GetDC_PrinterSetup

; #INTERNAL_USE_ONLY# ===========================================================================================================
; Name ..........: __GetDC_Printer
; Description ...: Get the device context of a "Print" Dialog box
; Syntax ........: __GetDC_Printer([$iCopies = 1])
; Parameters ....: $iCopies             - [optional] An integer value. Default is 1. Number of copies to print.
; Return values .: Success: Device context
;                  Failure: 0
; Author ........: RoyGlanfield
; Modified ......: mLipok
; Remarks .......: Has choices for -- many, but no portrait/landscape
; Related .......:
; Link ..........: http://www.autoitscript.com/forum/topic/127580-printing-richedit/
; Example .......: No
; ===============================================================================================================================
Func __GetDC_Printer($iCopies = 1)
    Local $strcPD = DllStructCreate($__PDtags)
    DllStructSetData($strcPD, "lStructSize", DllStructGetSize($strcPD))
    ; DllStructSetData($strcPD, "hwndOwner", $hwnd) ;
    ; Constant--$PD_RETURNDC = 0x100
    DllStructSetData($strcPD, "Flags", 0x100) ; different flags open different dialogue boxes
    DllStructSetData($strcPD, "nCopies", $iCopies) ; set the number of copies
    DllStructSetData($strcPD, "nFromPage", 1) ; start from page #
    DllStructSetData($strcPD, "nToPage", 0xFFFF)
    DllStructSetData($strcPD, "nMinPage", 1)
    DllStructSetData($strcPD, "nMaxPage", 0xFFFF)
    Local $bRet = DllCall("Comdlg32.dll", "int", "PrintDlgW", "ptr", DllStructGetPtr($strcPD))
    Local $hDC = 0
    If $bRet[0] = True Then
        $hDC = DllStructGetData($strcPD, "hDC")
    EndIf
    $strcPD = ''
    Return $hDC
EndFunc   ;==>__GetDC_Printer

; #INTERNAL_USE_ONLY# ===========================================================================================================
; Name ..........: __GetDC_PrinterNoDialog
; Description ...: Get the device context of  the default printer
; Syntax ........: __GetDC_PrinterNoDialog()
; Parameters ....:
; Return values .: Success: Device context
;                  Failure: 0
; Author ........: RoyGlanfield
; Modified ......: mLipok
; Remarks .......: Uses the default printers settings
; Related .......:
; Link ..........: http://www.autoitscript.com/forum/topic/127580-printing-richedit/
; Example .......: No
; ===============================================================================================================================
Func __GetDC_PrinterNoDialog()
    Local $strcPD = DllStructCreate($__PDtags)
    DllStructSetData($strcPD, "lStructSize", DllStructGetSize($strcPD))
    ; DllStructSetData($strcPD, "hwndOwner", $hwnd) ;
    ; Const--RETURNDEFAULT = 0x400---RETURNDC = 0x100----PRINTSETUP = 0x40
    DllStructSetData($strcPD, "Flags", 0x100 + 0x40 + 0x400) ; different flags open different dialogue boxes
    ; DllStructSetData($strcPD, "nCopies", $iCopies) ; only set this if a dialog is shown
    ;   DllStructSetData($strcPD,"nFromPage", 1) ; start from page #
    ; DllStructSetData($strcPD, "nToPage", 0xFFFF)
    ; DllStructSetData($strcPD, "nMinPage", 1)
    ; DllStructSetData($strcPD, "nMaxPage", 0xFFFF)
    Local $bRet = DllCall("Comdlg32.dll", "int", "PrintDlgW", "ptr", DllStructGetPtr($strcPD))
    Local $hDC = 0
    If $bRet[0] = True Then
        $hDC = DllStructGetData($strcPD, "hDC")
    EndIf
    $strcPD = ''
    Return $hDC
EndFunc   ;==>__GetDC_PrinterNoDialog

; #INTERNAL_USE_ONLY# ===========================================================================================================
; Name ..........: __GetDC_PrinterGeneral
; Description ...: Get the device context of a "PrinterSetup  General tab" Dialog box
; Syntax ........: __GetDC_PrinterGeneral($hRichEditCtrl[, $iCopies = 1])
; Parameters ....: $hRichEditCtrl                - A handle value. Handle of the RichEdit control.
;                  $iCopies             - [optional] An integer value. Default is 1. Number of copies to print.
; Return values .: Success: Device context
;                  Failure: 0
; Author ........: RoyGlanfield
; Modified ......: mLipok
; Remarks .......: Has choices for -- many, but no portrait/landscape
; Related .......:
; Link ..........: http://www.autoitscript.com/forum/topic/127580-printing-richedit/
; Example .......: No
; ===============================================================================================================================
Func __GetDC_PrinterGeneral($hRichEditCtrl, $iCopies = 1) ; Printer Setup, general options---NO landscape!
    Local $strcPD = DllStructCreate($__PDtags)
    DllStructSetData($strcPD, "lStructSize", DllStructGetSize($strcPD))
    DllStructSetData($strcPD, "hwndOwner", $hRichEditCtrl) ;
    ; Constant--$PD_RETURNDC = 0x100
    DllStructSetData($strcPD, "Flags", 0x100) ; different flags open different dialogue boxes
    DllStructSetData($strcPD, "nCopies", $iCopies) ; set the number of copies
    ; DllStructSetData($strcPD,"nFromPage", 10) ; start from page #
    ; DllStructSetData($strcPD, "nToPage", 0xFFFF)
    ; DllStructSetData($strcPD, "nMinPage", 1)
    ; DllStructSetData($strcPD, "nMaxPage", 0xFFFF)
    Local $bRet = DllCall("Comdlg32.dll", "int", "PrintDlgW", "ptr", DllStructGetPtr($strcPD))
    Local $hDC = 0
    If $bRet[0] = True Then
        $hDC = DllStructGetData($strcPD, "hDC")
    EndIf
    $strcPD = ''
    Return $hDC
EndFunc   ;==>__GetDC_PrinterGeneral

; #INTERNAL_USE_ONLY# ===========================================================================================================
; Name ..........: __GetDefaultPrinter
; Description ...: Get default printer dialog tags
; Syntax ........: __GetDefaultPrinter()
; Parameters ....:
; Return values .: Printer dialog tags
; Author ........: RoyGlanfield
; Modified ......: mLipok
; Remarks .......:
; Related .......:
; Link ..........: http://www.autoitscript.com/forum/topic/127580-printing-richedit/
; Example .......: No
; ===============================================================================================================================
Func __GetDefaultPrinter()
    Local $tags1 = DllStructCreate("dword")
    DllCall("winspool.drv", "int", "GetDefaultPrinter", "str", '', "ptr", DllStructGetPtr($tags1))
    Local $tags2 = DllStructCreate("char[" & DllStructGetData($tags1, 1) & "]")
    DllCall("winspool.drv", "int", "GetDefaultPrinter", "ptr", DllStructGetPtr($tags2), "ptr", DllStructGetPtr($tags1))
    Return DllStructGetData($tags2, 1)
EndFunc   ;==>__GetDefaultPrinter

; #INTERNAL_USE_ONLY# ===========================================================================================================
; Name ..........: __NextPage
; Description ...: Show selected page in preview
; Syntax ........: __NextPage($iPageNumber)
; Parameters ....: $iPageNumber         - An integer value.
; Return values .: None
; Author ........: RoyGlanfield
; Modified ......: mLipok
; Remarks .......:
; Related .......:
; Link ..........: http://www.autoitscript.com/forum/topic/127580-printing-richedit/
; Example .......: No
; ===============================================================================================================================
Func __NextPage($iPageNumber)

    ; stream into preview all up to the end of the page to show
    ; _GUICtrlRichEdit_SetSel($__API_RTF_Printer[$__hRichEditE], 0, $__aRTFPageInfo[$iPageNumber + 1] - 1) ; '-1' because $__aRTFPageInfo[$iPageNumber+1] is the 1st char of next page
    _GUICtrlRichEdit_SetSel($__API_RTF_Printer[$__hRichEditE], 0, $__aRTFPageInfo[$iPageNumber + 1]) ; '-1' because $__aRTFPageInfo[$iPageNumber+1] is the 1st char of next page
    Local $stream = _GUICtrlRichEdit_StreamToVar($__API_RTF_Printer[$__hRichEditE])
    _GUICtrlRichEdit_StreamFromVar($__API_RTF_Printer[$__hRTF_RichEditPre], $stream)
    _GUICtrlRichEdit_HideSelection($__API_RTF_Printer[$__hRTF_RichEditPre])

    ; now delete all before the page to show this way the font size etc. is continued, rather than reverting to the default.
    _GUICtrlRichEdit_SetSel($__API_RTF_Printer[$__hRTF_RichEditPre], 0, $__aRTFPageInfo[$iPageNumber])
    _GUICtrlRichEdit_ReplaceText($__API_RTF_Printer[$__hRTF_RichEditPre], '')
    Local $r = _SendMessage($__API_RTF_Printer[$__hRTF_RichEditPre], $EM_SETZOOM, 100, 500) ; eg 20%
    #forceref $r
    GUICtrlSetData($__API_RTF_Printer[$__iRTFLabelPagegNow], $iPageNumber)
EndFunc   ;==>__NextPage

Func __RTF_AddLeadingZeros($iDigitToExpand, $iNumberOfDigits)
    Return StringRight("00000000000000000000000000000000000" & String($iDigitToExpand), $iNumberOfDigits)
EndFunc   ;==>__RTF_AddLeadingZeros

; #INTERNAL_USE_ONLY# ===========================================================================================================
; Name ..........: __RTF_Preview
; Description ...: Show a "Print Preview" from RichEdit control
; Syntax ........: __RTF_Preview($hPrintDc, $hRichEditCtrl[, $LeftMinMargin = 1[, $TopMinMargin = 1[, $RightMinMargin = 1[, $BottomMinMargin = 1]]]])
; Parameters ....: $hPrintDc            - A handle value. Handle of Printer's device context.
;                  $hRichEditCtrl                - A handle value. Handle of the RichEdit control.
;                  $LeftMinMargin         - [optional] An unknown value. Default is 1. Minimum margin on the left.
;                  $TopMinMargin          - [optional] An unknown value. Default is 1. Minimum margin on the top.
;                  $RightMinMargin        - [optional] An unknown value. Default is 1. Minimum margin on the Right.
;                  $BottomMinMargin       - [optional] An unknown value. Default is 1. Minimum margin on the Bottom.
; Return values .: None
; Author ........: RoyGlanfield
; Modified ......: mLipok
; Remarks .......: Orientation, paper size, number of copies, and which printer are set when the Printer's device context is generated.
;                  Unexpected results may be caused by single line/paragaph orphin tags in the rtf.
;                  The Preview RichEdit Control is resized and zoomed 20%
; Related .......:
; Link ..........: http://www.autoitscript.com/forum/topic/127580-printing-richedit/
; Example .......: No
; ===============================================================================================================================
Func __RTF_Preview($hPrintDc, $hRichEditCtrl, $LeftMinMargin = 1, $TopMinMargin = 1, $RightMinMargin = 1, $BottomMinMargin = 1)

    ; convert the margins 0.1 inches to twips
    ; $TopMinMarg = $TopMinMarg * 144; eg 10*144 = 1440 which 1 inch
    ; $LeftMinMarg = $LeftMinMarg * 144; eg 10*144 = 1440 which 1 inch
    ; $PageMinMarg = $PageMinMarg * 144; eg 10*144 = 1440 which 1 inch
    ; $BottomMinMarg = $BottomMinMarg * 144; eg 10*144 = 1440 which 1 inch

    ; convert the margins 1 cm to twips
    $TopMinMargin = $TopMinMargin * 567; eg 2.539cm * 567= ~1440 which 1 inch
    $LeftMinMargin = $LeftMinMargin * 567; eg 2.539cm * 567 = ~1440 which 1 inch
    $RightMinMargin = $RightMinMargin * 567; eg 2.539cm * 567 = ~1440 which 1 inch
    $BottomMinMargin = $BottomMinMargin * 567; eg 2.539cm * 567 = ~1440 which 1 inch

    ; $hPrintDc ; Divice Context handle-----------
    ; dots per inch depends on the printer quality setting-------X and Y can be different!
    Local $dotInchX = _WinAPI_GetDeviceCaps($hPrintDc, 88) ; Const LOGPIXELSX = 88
    Local $dotInchY = _WinAPI_GetDeviceCaps($hPrintDc, 90) ; Const LOGPIXELSY = 90

    ; printer dots per inch
    ; get the printable area  [Page] and paper area [Paper]
    Local $vPageWidth = _WinAPI_GetDeviceCaps($hPrintDc, 8) ; Const HORZRES= 8
    Local $vPageHeight = _WinAPI_GetDeviceCaps($hPrintDc, 10) ; Const VERTRES = 10
    Local $vPaperWidth = _WinAPI_GetDeviceCaps($hPrintDc, 110) ; Const PHYSICALWIDTH = 110
    Local $vPaperHeight = _WinAPI_GetDeviceCaps($hPrintDc, 111) ; Const PHYSICALHEIGHT = 111

    ; none printable margins
    Local $OffSetX = _WinAPI_GetDeviceCaps($hPrintDc, 112) ; Const PHYSICALOFFSETX = 112
    Local $OffSetY = _WinAPI_GetDeviceCaps($hPrintDc, 113) ; Const PHYSICALOFFSETY = 113
    Local $vRightMargin = $vPaperWidth - $vPageWidth - $OffSetX
    Local $vBottomMargin = $vPaperHeight - $vPageHeight - $OffSetY

    ; conversion factors to use later-----------
    Local $TwipsInchX = $dotInchX / 1440 ; convert dots to twips [per inch]
    Local $TwipsInchY = $dotInchY / 1440 ; convert dots to twips [per inch]

    ; convert all measurments to twips
    $OffSetX = $OffSetX / $TwipsInchX ; convert Left dots to twips
    $OffSetY = $OffSetY / $TwipsInchY ; convert Left dots to twips
    $vPageWidth = $vPageWidth / $TwipsInchX ; convert Right dots to twips
    $vPageHeight = $vPageHeight / $TwipsInchY ; convert Right dots to twips
    $vPaperWidth = $vPaperWidth / $TwipsInchX ; convert Paper Width dots to twips
    $vPaperHeight = $vPaperHeight / $TwipsInchY ; convert Paper Width dots to twips

    ; Set the margins and keep everything in the printable area
    Local $Left1 = $LeftMinMargin - $OffSetX
    If $Left1 < 0 Then $Left1 = 0 ; dont print before printable area starts

    Local $Top1 = $TopMinMargin - $OffSetY
    If $Top1 < 0 Then $Top1 = 0 ; dont print before printable area starts

    Local $Right1 = $RightMinMargin - $vRightMargin
    If $Right1 < 0 Then $Right1 = 0 ; dont print after printable area ends
    ; $Right1 = $vPaperWidth - $Right1 - $OffSetX
    $Right1 = $vPageWidth - $Right1 ; $OffSetX+$Left1-$vRightMargin

    Local $Bottom1 = $BottomMinMargin - $vBottomMargin
    If $Bottom1 < 0 Then $Bottom1 = 0 ; dont print after printable area ends
    $Bottom1 = $vPageHeight - $Bottom1

    Local $z = _SendMessage($__API_RTF_Printer[$__hRTF_RichEditPre], $EM_SETTARGETDEVICE, $hPrintDc, $Right1 - $Left1) ;

    If $z = 0 Then Return 'Cant find RichEdit Control'

    If _GUICtrlRichEdit_GetTextLength($hRichEditCtrl) < 1 Then Return 'Nothing to Print.'

    ; must have a selection on the richEdit control---------------
    _SendMessage($hRichEditCtrl, $EM_SETSEL, 0, -1) ; ok----select all

    Local $dcHTags = "HANDLE hdc;HANDLE hdcTarget;"
    Local $pgTags = "int Left1 ;int Top1 ;int Right1 ;int Bottom1 ;int Left2;int Top2;int Right2;int Bottom2;"
    Local $rgTags = "LONG cpMin;LONG cpMax"

    ; create a structure for the printed page
    Local $strcPage = DllStructCreate($dcHTags & $pgTags & $rgTags)
    DllStructSetData($strcPage, "hdc", $hPrintDc) ; printer
    DllStructSetData($strcPage, "Left1", $Left1) ; twip--------printer
    DllStructSetData($strcPage, "Right1", $Right1) ; twip--------printer
    DllStructSetData($strcPage, "Top1", $Top1) ; twip--------printer
    DllStructSetData($strcPage, "Bottom1", $Bottom1) ; twip--------printer

    ; next 7 lines seem to have, no effect or crash printer jobs queue---why???
    ; "HANDLE hdc;" is the printer------- before conecting printer to rtf???
    ; "HANDLE hdcTarget;" is the target RichEdit control that has the rtf ????
    ; DllStructSetData($strcPage,"hdcTarget",$hPrintDc) ; richEdit scource???
    ; DllStructSetData($strcPage,"Left2",$Left1/$dotInchX*96/3) ; richEdit scource???
    ; DllStructSetData($strcPage,"Top2",$Top1/$dotInchX*96/3) ; richEdit scource???
    ; DllStructSetData($strcPage,"Right2",$Page1/$dotInchX*96/3) ; twip------richEdit scource???
    ; DllStructSetData($strcPage,"Bottom2",$Bottom1/$dotInchX*96/3) ; twip-----richEdit scource???

    ; get the pointer to all that will be printed??? {I think????????}
    Local $a = DllStructGetPtr($strcPage) + DllStructGetSize(DllStructCreate($dcHTags & $pgTags))

    ; use this pointer-----------
    _SendMessage($hRichEditCtrl, $EM_EXGETSEL, 0, $a)
    ReDim $__aRTFPageInfo[2]
    $__aRTFPageInfo[1] = 1
    $__aRTFPageInfo[0] = 0 ; the total number of pages
    Local $iPageInPreview = 1 ; the page number of the preview now showing
    #forceref $iPageInPreview

    ; find the last char of the document to be printed
    Local $cpMax = DllStructGetData($strcPage, "cpMax")

    ; set the 1st page start char-----------
    Local $cpMin = 0
    Local $cpMin2 = -1

    ; -----------------------------------------------------------
    ; make a loop to format each printed page and exit when
    ; $cpMin reaches the $cpMax
    ; $cpMin is less than 0---{I have seen -1 but I forget when}---
    ; ALSO-- ExitLoop if $cpMin = $cpMin 2---if it stops finding the start of next page
    While $cpMax > $cpMin And $cpMin > -1

        ; get the 1st char of the next page, {but how does it work ???}
        $cpMin2 = $cpMin
        $cpMin = _SendMessage($hRichEditCtrl, $EM_FORMATRANGE, True, DllStructGetPtr($strcPage))
        If $cpMin2 = $cpMin Then ExitLoop; get out of loop before more pages are added

        ; set the next page start char-----------
        DllStructSetData($strcPage, "cpMin", $cpMin)
        $__aRTFPageInfo[0] += 1 ; increment page the total page count

        ; update array --- for what to show in the preview
        _ArrayAdd($__aRTFPageInfo, $cpMin) ; start char-number of each page

        ; end the page and loop again for the next page until the end of document
    WEnd
    _SendMessage($hRichEditCtrl, $EM_FORMATRANGE, False, 0)

    ; adjust the preview shape/size
    WinMove($__API_RTF_Printer[$__hRTF_RichEditPre], '', 210 - $vPaperWidth / 1440 * 96 / 5 / 2, 200, $vPaperWidth / 1440 * 96 / 5 + 15, $vPaperHeight / 1440 * 96 / 5 + 15)

    ; the printer starts printing at offsetX and offsetY but the preview windiw starts at 1 and 1
    ; so add offsetX and offsetY to the page margins to the printer would use
    _GUICtrlRichEdit_SetRECT($__API_RTF_Printer[$__hRTF_RichEditPre], ($Left1 + $OffSetX) / $dotInchX * 96 / 5, ($Top1 + $OffSetY) / $dotInchY * 96 / 5, 460, 500)
    __NextPage(1)
    GUICtrlSetData($__API_RTF_Printer[$__iRTFLabelPagesTotal], $__aRTFPageInfo[0])
    Return $__aRTFPageInfo[0]
EndFunc   ;==>__RTF_Preview

; #FUNCTION# ====================================================================================================================
; Name ..........: __RTF_Print
; Description ...: Print from RichEdit control
; Syntax ........: __RTF_Print($hPrintDc, $hRichEditCtrl, $sDocTitle[, $LeftMinMargin = 1[, $TopMinMargin = 1[, $RightMinMargin = 1[,
;                  $BottomMinMargin = 1]]]])
; Parameters ....: $hPrintDc            - A handle value. Printer's device context.
;                  $hRichEditCtrl                - A handle value. Handle of the RichEdit control.
;                  $sDocTitle            - An unknown value. Printer's job title.
;                  $LeftMinMargin         - [optional] An unknown value. Default is 1. Minimum margin on the left
;                  $TopMinMargin          - [optional] An unknown value. Default is 1. Minimum margin on the Top
;                  $RightMinMargin        - [optional] An unknown value. Default is 1. Minimum margin on the Right
;                  $BottomMinMargin       - [optional] An unknown value. Default is 1. Minimum margin on the Bottom
; Return values .: Success -  'Sent to the printer.'
;                  Failure - 'Printing aborted.'
; Author ........: RoyGlanfield
; Modified ......: mLipok
; Remarks .......: Orientation, paper size, number of copies, and which printer are set when the Printer's device context is generated.
;                  Unexpected results may be caused by single line/paragaph orphin tags in the rtf.
; Related .......:
; Link ..........: http://www.autoitscript.com/forum/topic/127580-printing-richedit/
; Example .......: No
; ===============================================================================================================================
Func __RTF_Print($hPrintDc, $hRichEditCtrl, $sDocTitle, $LeftMinMargin = 1, $TopMinMargin = 1, $RightMinMargin = 1, $BottomMinMargin = 1)

    ; convert the margins 0.1 inches to twips
    ; $TopMinMarg = $TopMinMarg * 144; eg 10*144 = 1440 which 1 inch
    ; $LeftMinMarg = $LeftMinMarg * 144; eg 10*144 = 1440 which 1 inch
    ; $PageMinMarg = $PageMinMarg * 144; eg 10*144 = 1440 which 1 inch
    ; $BottomMinMarg = $BottomMinMarg * 144; eg 10*144 = 1440 which 1 inch

    ; convert the margins 1 cm to twips
    $TopMinMargin = $TopMinMargin * 567; eg 2.539cm * 567= ~1440 which 1 inch
    $LeftMinMargin = $LeftMinMargin * 567; eg 2.539cm * 567 = ~1440 which 1 inch
    $RightMinMargin = $RightMinMargin * 567; eg 2.539cm * 567 = ~1440 which 1 inch
    $BottomMinMargin = $BottomMinMargin * 567; eg 2.539cm * 567 = ~1440 which 1 inch

    ; $hPrintDc ; Divice Context handle-----------
    ; dots per inch depends on the printer quality setting-------X and Y can be different!
    Local $dotInchX = _WinAPI_GetDeviceCaps($hPrintDc, 88) ; Const LOGPIXELSX = 88
    Local $dotInchY = _WinAPI_GetDeviceCaps($hPrintDc, 90) ; Const LOGPIXELSY = 90

    ; printer dots per inch
    ; get the printable area  [Page] and paper area [Paper]
    Local $vPageWidth = _WinAPI_GetDeviceCaps($hPrintDc, 8) ; Const HORZRES= 8
    Local $vPageHeight = _WinAPI_GetDeviceCaps($hPrintDc, 10) ; Const VERTRES = 10
    Local $vPaperWidth = _WinAPI_GetDeviceCaps($hPrintDc, 110) ; Const PHYSICALWIDTH = 110
    Local $vPaperHeight = _WinAPI_GetDeviceCaps($hPrintDc, 111) ; Const PHYSICALHEIGHT = 111

    ; none printable margins
    Local $OffSetX = _WinAPI_GetDeviceCaps($hPrintDc, 112) ; Const PHYSICALOFFSETX = 112
    Local $OffSetY = _WinAPI_GetDeviceCaps($hPrintDc, 113) ; Const PHYSICALOFFSETY = 113
    Local $vRightMargin = $vPaperWidth - $vPageWidth - $OffSetX
    Local $vBottomMargin = $vPaperHeight - $vPageHeight - $OffSetY

    ; conversion factors to use later-----------
    Local $TwipsInchX = $dotInchX / 1440 ; convert dots to twips [per inch]
    Local $TwipsInchY = $dotInchY / 1440 ; convert dots to twips [per inch]

    ; convert all measurments to twips
    $OffSetX = $OffSetX / $TwipsInchX ; convert Left dots to twips
    $OffSetY = $OffSetY / $TwipsInchY ; convert Left dots to twips
    $vPageWidth = $vPageWidth / $TwipsInchX ; convert Right dots to twips
    $vPageHeight = $vPageHeight / $TwipsInchY ; convert Right dots to twips
    $vPaperWidth = $vPaperWidth / $TwipsInchX ; convert Paper Width dots to twips
    $vPaperHeight = $vPaperHeight / $TwipsInchY ; convert Paper Width dots to twips

    ; Set the margins and keep everything in the printable area
    Local $Left1 = $LeftMinMargin - $OffSetX
    If $Left1 < 0 Then $Left1 = 0 ; dont print before printable area starts

    Local $Top1 = $TopMinMargin - $OffSetY
    If $Top1 < 0 Then $Top1 = 0 ; dont print before printable area starts

    Local $Right1 = $RightMinMargin - $vRightMargin
    If $Right1 < 0 Then $Right1 = 0 ; dont print after printable area ends

    ; $Right1 = $vPaperWidth - $Right1 - $OffSetX
    $Right1 = $vPageWidth - $Right1 ;+$Left1 ; $OffSetX

    Local $Bottom1 = $BottomMinMargin - $vBottomMargin
    If $Bottom1 < 0 Then $Bottom1 = 0 ; dont print after printable area ends
    $Bottom1 = $vPageHeight - $Bottom1 ;+$Top1

    Local $z = _SendMessage($hRichEditCtrl, $EM_SETTARGETDEVICE, 0) ; 0=wrap----anything else is 1 char per page!!!!!
    If $z = 0 Then Return 'Cant find RichEdit Control'

    If _GUICtrlRichEdit_GetTextLength($hRichEditCtrl) < 1 Then Return 'Nothing to Print.'

    ; must have a selection on the richEdit control---------------
    _SendMessage($hRichEditCtrl, $EM_SETSEL, 0, -1) ; ok----select all

    Local $pgTags = "int Left1 ;int Top1 ;int Right1 ;int Bottom1 ;int Left2;int Top2;int Right2;int Bottom2;"
    Local $rgTags = "LONG cpMin;LONG cpMax"
    Local $dcHTags = "HANDLE hdc;HANDLE hdcTarget;"

    ; create a structure for the printed page
    Local $strcPage = DllStructCreate($dcHTags & $pgTags & $rgTags)
    DllStructSetData($strcPage, "hdc", $hPrintDc) ; printer
    DllStructSetData($strcPage, "Left1", $Left1) ; twip--------printer
    DllStructSetData($strcPage, "Right1", $Right1) ; twip--------printer
    DllStructSetData($strcPage, "Top1", $Top1) ; twip--------printer
    DllStructSetData($strcPage, "Bottom1", $Bottom1) ; twip--------printer

    ; next 7 lines seem to have, no effect or crash printer jobs queue---why???
    ; "HANDLE hdc;" is the printer------- before conecting printer to rtf???
    ; "HANDLE hdcTarget;" is the target RichEdit control that has the rtf ????
    ; DllStructSetData($strcPage,"hdcTarget",$hPrintDc) ; richEdit scource???
    ; DllStructSetData($strcPage,"Left2",$Left1/$dotInchX*96/3) ; richEdit scource???
    ; DllStructSetData($strcPage,"Top2",$Top1/$dotInchX*96/3) ; richEdit scource???
    ; DllStructSetData($strcPage,"Right2",$Page1/$dotInchX*96/3) ; twip------richEdit scource???
    ; DllStructSetData($strcPage,"Bottom2",$Bottom1/$dotInchX*96/3) ; twip-----richEdit scource???

    ; get the pointer to all that will be printed??? {I think????????}
    Local $a = DllStructGetPtr($strcPage) + DllStructGetSize(DllStructCreate($dcHTags & $pgTags))

    ; use this pointer-----------
    _SendMessage($hRichEditCtrl, $EM_EXGETSEL, 0, $a)

    ; find the last char of the document to be printed
    Local $cpMax = DllStructGetData($strcPage, "cpMax")

    ; set the 1st page start char-----------
    Local $cpMin = 0
    Local $cpMin2 = -1

    ; -----------------------------------------------------------
    ; create a Document structure for the print job title
    Local $strDocNm = DllStructCreate("char DocName[" & StringLen($sDocTitle & Chr(0)) & "]")
    DllStructSetData($strDocNm, "DocName", $sDocTitle & Chr(0))
    Local $strDoc = DllStructCreate("int Size;ptr DocName;ptr Output;ptr Datatype;dword Type")
    DllStructSetData($strDoc, "Size", DllStructGetSize($strDoc))

    ; insert the document name structure into the document structure
    DllStructSetData($strDoc, "DocName", DllStructGetPtr($strDocNm))
    DllCall("gdi32.dll", "long", "StartDoc", "hwnd", $hPrintDc, "ptr", DllStructGetPtr($strDoc))

    ; -----------------------------------------------------------
    ; make a loop to format each printed page and exit when
    ; $cpMin reaches the $cpMax
    ; $cpMin is less than 0---{I have seen -1 but I forget when}---
    ; ALSO-- ExitLoop if $cpMin = $cpMin 2---if it stops finding the start of next page
    Local $StartPage, $EndPage
    #forceref $StartPage
    While $cpMax > $cpMin And $cpMin > -1

        ; start a new page-----------
        $StartPage = DllCall("Gdi32.dll", "int", "StartPage", "HANDLE", $hPrintDc)

        ; increment page the count-----------
        ; if not done now it will exit the loop before counting the last page
        ; get the 1st char of the next page, {but how does it work ???}
        $cpMin2 = $cpMin
        $cpMin = _SendMessage($hRichEditCtrl, $EM_FORMATRANGE, True, DllStructGetPtr($strcPage))

        ; ExitLoop when $cpMin = $cpMin 2---just in case it stops finding the start of next page
        If $cpMin2 = $cpMin Then ExitLoop; get out of loop before more pages are added

        ; set the next page start char-----------
        DllStructSetData($strcPage, "cpMin", $cpMin)

        ; this sends it to the printer
        $EndPage = DllCall("Gdi32.dll", "int", "EndPage", "HANDLE", $hPrintDc)

        ; end the page and loop again for the next page until the end of document
    WEnd
    _SendMessage($hRichEditCtrl, $EM_FORMATRANGE, False, 0)
    If $EndPage[0] > 0 Then
        DllCall("Gdi32.dll", "int", "EndDoc", "HANDLE", $hPrintDc)
        Return 'Sent to the printer.'
    Else
        DllCall("Gdi32.dll", "int", "AbortDoc", "HANDLE", $hPrintDc)
        Return 'Printing aborted.'
    EndIf
EndFunc   ;==>__RTF_Print
#EndRegion RTF PRINTER INTERNAL#

#Region MSDN Links , Help, Doc
;~ How to Print the Contents of Rich Edit Controls
;~ http://msdn.microsoft.com/en-us/library/windows/desktop/bb787875(v=vs.85).aspx
;~ http://blogs.msdn.com/b/oldnewthing/archive/2007/01/12/1455972.aspx

;~ How To Use GetDeviceCaps to Determine Margins on a Page
;~ http://support.microsoft.com/kb/193943


;~ http://msdn.microsoft.com/en-us/library/windows/desktop/dd144877(v=vs.85).aspx
;~ http://msdn.microsoft.com/en-us/library/windows/desktop/dd162833(v=vs.85).aspx
;~ http://msdn.microsoft.com/en-us/library/windows/desktop/dd162931(v=vs.85).aspx
;~ http://support.microsoft.com/kb/139652
;~ http://msdn.microsoft.com/en-us/library/windows/desktop/ms646962(v=vs.85).aspx
;~ http://msdn.microsoft.com/en-us/library/windows/desktop/ms646964(v=vs.85).aspx
;~ http://msdn.microsoft.com/en-us/library/windows/desktop/ms646966(v=vs.85).aspx

#EndRegion MSDN Links , Help, Doc

HOW TO USE THIS:

#include-once
#include <RTF_Printer.au3>

_RTF_PrintFile($sRTF_FileFullPath, Default, True, True)

; or take a look in attached     RTF_Printer_Examples.au3
;

Regards
mLipok
 
 
 
EDIT:
attachment changed (before 6 downloads)

RTF_Printer.au3.Download.html

Edited by mLipok

Signature beginning:
* Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
* ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Code * for other useful stuff click the following button:

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST API * ErrorLog.au3 UDF - A logging Library * Include Dependency Tree (Tool for analyzing script relations) * Show_Macro_Values.au3 *

 

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 UDF * ADO.au3 UDF * SMTP Mailer UDF * Dual Monitor resolution detection * * 2GUI on Dual Monitor System * _SciLexer.au3 UDF * SciTE - Lexer for console pane * 

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: * Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Good coding practices in AutoIt * 

OpenOffice/LibreOffice/XLS Related: WriterDemo.au3 * XLS/MDB from scratch with ADOX

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * IE in TaskScheduler * IE Embedded Control Versioning (use IE9+ and HTML5 in a GUI) * PDF Related: * How to get reference to PDF object embeded in IE * IE on Windows 11 * 

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

I also encourage you to check awesome @trancexx code:  * Create COM objects from modules without any demand on user to register anything. * Another COM object registering stuff * OnHungApp handler * Avoid "AutoIt Error" message box in unknown errors  * HTML editor * 

winhttp.au3 related : * https://www.autoitscript.com/forum/topic/206771-winhttpau3-download-problem-youre-speaking-plain-http-to-an-ssl-enabled-server-port/

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

Signature last update: 2023-04-24

Link to comment
Share on other sites
mLipok Universalist

mLipok

Posted
  • Author
Posted

New Version:

Update History:
    ===================================================
    2014/06/04
    v0.1 First official version

    2014/06/04
    v0.2
    * Global Variable renameing by adding $__
    * extended $__API_RTF_Print
    * new function: _RTF_SetMargins($vMarginLeft = 1, $vMarginTop = 1, $vMarginRight = 1, $vMarginBottom = 1)
    * new function: _RTF_SetNumberOfCopies($iNumberOfCopies = 1)
    * added #Region RTF PRINTER initialization#
    * CleanUp
    * added #forceref
    * added #AutoIt3Wrapper_Au3Check_Parameters=-q -d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w- 7

Signature beginning:
* Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
* ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Code * for other useful stuff click the following button:

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST API * ErrorLog.au3 UDF - A logging Library * Include Dependency Tree (Tool for analyzing script relations) * Show_Macro_Values.au3 *

 

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 UDF * ADO.au3 UDF * SMTP Mailer UDF * Dual Monitor resolution detection * * 2GUI on Dual Monitor System * _SciLexer.au3 UDF * SciTE - Lexer for console pane * 

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: * Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Good coding practices in AutoIt * 

OpenOffice/LibreOffice/XLS Related: WriterDemo.au3 * XLS/MDB from scratch with ADOX

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * IE in TaskScheduler * IE Embedded Control Versioning (use IE9+ and HTML5 in a GUI) * PDF Related: * How to get reference to PDF object embeded in IE * IE on Windows 11 * 

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

I also encourage you to check awesome @trancexx code:  * Create COM objects from modules without any demand on user to register anything. * Another COM object registering stuff * OnHungApp handler * Avoid "AutoIt Error" message box in unknown errors  * HTML editor * 

winhttp.au3 related : * https://www.autoitscript.com/forum/topic/206771-winhttpau3-download-problem-youre-speaking-plain-http-to-an-ssl-enabled-server-port/

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

Signature last update: 2023-04-24

Link to comment
Share on other sites
mLipok Universalist

mLipok

Posted
  • Author
Posted

any comments ?

new concepts ?

Signature beginning:
* Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
* ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Code * for other useful stuff click the following button:

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST API * ErrorLog.au3 UDF - A logging Library * Include Dependency Tree (Tool for analyzing script relations) * Show_Macro_Values.au3 *

 

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 UDF * ADO.au3 UDF * SMTP Mailer UDF * Dual Monitor resolution detection * * 2GUI on Dual Monitor System * _SciLexer.au3 UDF * SciTE - Lexer for console pane * 

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: * Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Good coding practices in AutoIt * 

OpenOffice/LibreOffice/XLS Related: WriterDemo.au3 * XLS/MDB from scratch with ADOX

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * IE in TaskScheduler * IE Embedded Control Versioning (use IE9+ and HTML5 in a GUI) * PDF Related: * How to get reference to PDF object embeded in IE * IE on Windows 11 * 

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

I also encourage you to check awesome @trancexx code:  * Create COM objects from modules without any demand on user to register anything. * Another COM object registering stuff * OnHungApp handler * Avoid "AutoIt Error" message box in unknown errors  * HTML editor * 

winhttp.au3 related : * https://www.autoitscript.com/forum/topic/206771-winhttpau3-download-problem-youre-speaking-plain-http-to-an-ssl-enabled-server-port/

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

Signature last update: 2023-04-24

Link to comment
Share on other sites
mLipok Universalist

mLipok

Posted
  • Author
Posted

Today I found a bug.
Is related to printing multiple prints at once after 16 print documents are no longer transmitted to the printer.
More or less already know how to solve this problem.

I plan to release an update this week.
Any comments? Any feature requests?

Signature beginning:
* Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
* ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Code * for other useful stuff click the following button:

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST API * ErrorLog.au3 UDF - A logging Library * Include Dependency Tree (Tool for analyzing script relations) * Show_Macro_Values.au3 *

 

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 UDF * ADO.au3 UDF * SMTP Mailer UDF * Dual Monitor resolution detection * * 2GUI on Dual Monitor System * _SciLexer.au3 UDF * SciTE - Lexer for console pane * 

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: * Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Good coding practices in AutoIt * 

OpenOffice/LibreOffice/XLS Related: WriterDemo.au3 * XLS/MDB from scratch with ADOX

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * IE in TaskScheduler * IE Embedded Control Versioning (use IE9+ and HTML5 in a GUI) * PDF Related: * How to get reference to PDF object embeded in IE * IE on Windows 11 * 

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

I also encourage you to check awesome @trancexx code:  * Create COM objects from modules without any demand on user to register anything. * Another COM object registering stuff * OnHungApp handler * Avoid "AutoIt Error" message box in unknown errors  * HTML editor * 

winhttp.au3 related : * https://www.autoitscript.com/forum/topic/206771-winhttpau3-download-problem-youre-speaking-plain-http-to-an-ssl-enabled-server-port/

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

Signature last update: 2023-04-24

Link to comment
Share on other sites
mLipok Universalist

mLipok

Posted
  • Author
Posted (edited)

New Version:

2014/06/12
v0.3
* Global Variable Renaming add 'RTF' to variable names and added $__ to be sure that no one else used the name
* Global Variable renaming $aPageInfo to $__aRTFPageInfo to be sure that no one else used the name
* variable renaming $hInput* to $iCtrlInput*
* in _RTF_PrintFile() new parameter $fAddIndex
* Setting RTF_Printer Window Title
* fix problem with printing more than 16 RTF files >>  GUIDelete($__API_RTF_Print[$__hRTF_Gui])
* new internal function __RTF_AddLeadingZeros
* added some more comments
* brand new RTF_Printer_Examples.au3

EDIT:

I just little modified RTF_Printer_Examples.au3

Edited by mLipok

Signature beginning:
* Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
* ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Code * for other useful stuff click the following button:

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST API * ErrorLog.au3 UDF - A logging Library * Include Dependency Tree (Tool for analyzing script relations) * Show_Macro_Values.au3 *

 

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 UDF * ADO.au3 UDF * SMTP Mailer UDF * Dual Monitor resolution detection * * 2GUI on Dual Monitor System * _SciLexer.au3 UDF * SciTE - Lexer for console pane * 

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: * Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Good coding practices in AutoIt * 

OpenOffice/LibreOffice/XLS Related: WriterDemo.au3 * XLS/MDB from scratch with ADOX

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * IE in TaskScheduler * IE Embedded Control Versioning (use IE9+ and HTML5 in a GUI) * PDF Related: * How to get reference to PDF object embeded in IE * IE on Windows 11 * 

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

I also encourage you to check awesome @trancexx code:  * Create COM objects from modules without any demand on user to register anything. * Another COM object registering stuff * OnHungApp handler * Avoid "AutoIt Error" message box in unknown errors  * HTML editor * 

winhttp.au3 related : * https://www.autoitscript.com/forum/topic/206771-winhttpau3-download-problem-youre-speaking-plain-http-to-an-ssl-enabled-server-port/

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

Signature last update: 2023-04-24

Link to comment
Share on other sites
mLipok Universalist

mLipok

Posted
  • Author
Posted (edited)

You're welcome.

edit:

How do you like the speed ?

Edited by mLipok

Signature beginning:
* Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
* ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Code * for other useful stuff click the following button:

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST API * ErrorLog.au3 UDF - A logging Library * Include Dependency Tree (Tool for analyzing script relations) * Show_Macro_Values.au3 *

 

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 UDF * ADO.au3 UDF * SMTP Mailer UDF * Dual Monitor resolution detection * * 2GUI on Dual Monitor System * _SciLexer.au3 UDF * SciTE - Lexer for console pane * 

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: * Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Good coding practices in AutoIt * 

OpenOffice/LibreOffice/XLS Related: WriterDemo.au3 * XLS/MDB from scratch with ADOX

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * IE in TaskScheduler * IE Embedded Control Versioning (use IE9+ and HTML5 in a GUI) * PDF Related: * How to get reference to PDF object embeded in IE * IE on Windows 11 * 

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

I also encourage you to check awesome @trancexx code:  * Create COM objects from modules without any demand on user to register anything. * Another COM object registering stuff * OnHungApp handler * Avoid "AutoIt Error" message box in unknown errors  * HTML editor * 

winhttp.au3 related : * https://www.autoitscript.com/forum/topic/206771-winhttpau3-download-problem-youre-speaking-plain-http-to-an-ssl-enabled-server-port/

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

Signature last update: 2023-04-24

Link to comment
Share on other sites
mLipok Universalist

mLipok

Posted
  • Author
Posted (edited)

New Version:

2014/06/15
v0.4
* $sRTF_FileFullPath_or_Stream   - A string value. Full path to the RTF file to be printed or Stream Data from _GUICtrlRichEdit_StreamToVar
*  Now you can create documents in RichEdit and print them without the need to save the RTF file.
*  You can also download the documents from the database and print them without having to save them to disk as RTF files.
* new RTF_Printer_Examples.au3
* new #Region MSDN Links , Help, Doc
* some minor variable renaming

 

Edited by mLipok

Signature beginning:
* Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
* ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Code * for other useful stuff click the following button:

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST API * ErrorLog.au3 UDF - A logging Library * Include Dependency Tree (Tool for analyzing script relations) * Show_Macro_Values.au3 *

 

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 UDF * ADO.au3 UDF * SMTP Mailer UDF * Dual Monitor resolution detection * * 2GUI on Dual Monitor System * _SciLexer.au3 UDF * SciTE - Lexer for console pane * 

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: * Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Good coding practices in AutoIt * 

OpenOffice/LibreOffice/XLS Related: WriterDemo.au3 * XLS/MDB from scratch with ADOX

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * IE in TaskScheduler * IE Embedded Control Versioning (use IE9+ and HTML5 in a GUI) * PDF Related: * How to get reference to PDF object embeded in IE * IE on Windows 11 * 

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

I also encourage you to check awesome @trancexx code:  * Create COM objects from modules without any demand on user to register anything. * Another COM object registering stuff * OnHungApp handler * Avoid "AutoIt Error" message box in unknown errors  * HTML editor * 

winhttp.au3 related : * https://www.autoitscript.com/forum/topic/206771-winhttpau3-download-problem-youre-speaking-plain-http-to-an-ssl-enabled-server-port/

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

Signature last update: 2023-04-24

Link to comment
Share on other sites
  • 4 weeks later...
qwert Universalist

qwert

Posted
Posted

mLipok, can you clarify the simplest call the print directly from a RichEdit control:

__RTF_Print($hPrintDc, $hRichEditCtrl, $sDocTitle)

Do I first call __GetDC_PrinterNoDialog()?

I ask because the GetDC function identified as Internal Use Only.  But, otherwise, I don't see how to populate $hPrintDC.

Link to comment
Share on other sites
mLipok Universalist

mLipok

Posted
  • Author
Posted (edited)

for example:

using _GUICtrlRichEdit_Create example from HelpFile:

; This is modyfied example from HelpFile based on _GUICtrlRichEdit_Create.au3

#include <GUIConstantsEx.au3>
#include <GuiRichEdit.au3>
#include <WindowsConstants.au3>

; here add reference to my UDF
#include "RTF_Printer.au3"

Example()

Func Example()
    Local $hGui, $hRichEdit, $iMsg
    Local $idPrint, $vRTF_Stream
    $hGui = GUICreate("Example (" & StringTrimRight(@ScriptName, 4) & ")", 320, 350, -1, -1)

    ; here add Print button
    Local $idPrint = GUICtrlCreateButton("Print", 220, 320, 85, 25)

    $hRichEdit = _GUICtrlRichEdit_Create($hGui, "This is a test.", 10, 10, 300, 220, _
            BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
    _GUICtrlRichEdit_AppendText($hRichEdit, @CRLF & "This is more text")
    GUISetState(@SW_SHOW)

    While True
        $iMsg = GUIGetMsg()
        Select
            Case $iMsg = $GUI_EVENT_CLOSE
                _GUICtrlRichEdit_Destroy($hRichEdit) ; needed unless script crashes
                ; GUIDelete()   ; is OK too
                Exit

            Case $iMsg = $idPrint ; here is support for Clicking in Print button

                ; here Setting default margin - all = 1 centimeters
                ; you can set your own margins
                _RTF_SetMargins()

                ; here setting number of copies - default is 1
                _RTF_SetNumberOfCopies(1)

                ; here getting data to Print
                $vRTF_Stream = _GUICtrlRichEdit_StreamToVar($hRichEdit)

                ; and here Printing
                _RTF_PrintFile($vRTF_Stream, Default, True, True)

        EndSelect
    WEnd
EndFunc   ;==>Example

.

Watch for commented lines.

Edited by mLipok

Signature beginning:
* Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
* ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Code * for other useful stuff click the following button:

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST API * ErrorLog.au3 UDF - A logging Library * Include Dependency Tree (Tool for analyzing script relations) * Show_Macro_Values.au3 *

 

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 UDF * ADO.au3 UDF * SMTP Mailer UDF * Dual Monitor resolution detection * * 2GUI on Dual Monitor System * _SciLexer.au3 UDF * SciTE - Lexer for console pane * 

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: * Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Good coding practices in AutoIt * 

OpenOffice/LibreOffice/XLS Related: WriterDemo.au3 * XLS/MDB from scratch with ADOX

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * IE in TaskScheduler * IE Embedded Control Versioning (use IE9+ and HTML5 in a GUI) * PDF Related: * How to get reference to PDF object embeded in IE * IE on Windows 11 * 

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

I also encourage you to check awesome @trancexx code:  * Create COM objects from modules without any demand on user to register anything. * Another COM object registering stuff * OnHungApp handler * Avoid "AutoIt Error" message box in unknown errors  * HTML editor * 

winhttp.au3 related : * https://www.autoitscript.com/forum/topic/206771-winhttpau3-download-problem-youre-speaking-plain-http-to-an-ssl-enabled-server-port/

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

Signature last update: 2023-04-24

Link to comment
Share on other sites
qwert Universalist

qwert

Posted
Posted

I'm sorry if I'm completely missing the point, here ... but this is what I tried and it works:

Func _Print()
   Local $Dc = __GetDC_PrinterNoDialog()
   Local $anySel = _GUICtrlRichEdit_GetSel($myEdit)         ; take note of user's selection, if any
   __RTF_Print($Dc, $myEdit, "Printed result")
   If $anySel[0] <> $anySel[1] Then
    _GUICtrlRichEdit_SetSel($myEdit, $anySel[0], $anySel[1]) ; restore user's selection, if any
   Else
    _GUICtrlRichEdit_Deselect($myEdit)           ; otherwise, deselect all
   EndIf
EndFunc

Am I supposed to be calling _RTF_PrintFile() and ignoring that __RTF_Print() is available?

 

(BTW, I added the lines to restore the user's selection.  Maybe this should be considered for a future update.)

Link to comment
Share on other sites
mLipok Universalist

mLipok

Posted
  • Author
Posted

This look good.

Because it is easier and faster I think I will add this to UDF in a few day.

 

BTW:

I am not a RichEdit expert I just find RoyGlanfield example and adapt it to more usable form.

Cheers

mLipok

Signature beginning:
* Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
* ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Code * for other useful stuff click the following button:

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST API * ErrorLog.au3 UDF - A logging Library * Include Dependency Tree (Tool for analyzing script relations) * Show_Macro_Values.au3 *

 

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 UDF * ADO.au3 UDF * SMTP Mailer UDF * Dual Monitor resolution detection * * 2GUI on Dual Monitor System * _SciLexer.au3 UDF * SciTE - Lexer for console pane * 

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: * Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Good coding practices in AutoIt * 

OpenOffice/LibreOffice/XLS Related: WriterDemo.au3 * XLS/MDB from scratch with ADOX

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * IE in TaskScheduler * IE Embedded Control Versioning (use IE9+ and HTML5 in a GUI) * PDF Related: * How to get reference to PDF object embeded in IE * IE on Windows 11 * 

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

I also encourage you to check awesome @trancexx code:  * Create COM objects from modules without any demand on user to register anything. * Another COM object registering stuff * OnHungApp handler * Avoid "AutoIt Error" message box in unknown errors  * HTML editor * 

winhttp.au3 related : * https://www.autoitscript.com/forum/topic/206771-winhttpau3-download-problem-youre-speaking-plain-http-to-an-ssl-enabled-server-port/

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

Signature last update: 2023-04-24

Link to comment
Share on other sites
  • 2 months later...
MikahS Universalist

MikahS

Posted
Posted (edited)

Hi mLipok,

I'm trying to use this library as I see it being my go to for the application I'm developing. Really cool what you have done, I just have a little problem.

When trying to call __RTF_Preview() I get nothing, it doesn't come up with anything. This is how I am using it:

#include <GuiRichEdit.au3>
#include <GUIConstants.au3>
#include <RTF_Printer.au3>

Local $msg

Local $hWnd = GUICreate("", 200, 200)
Local $pEditWindow = _GUICtrlRichEdit_Create($hWnd, "This is a test", 0, 0, 100, 100)
Local $pPreview = GUICtrlCreateButton("print preview", 100, 145)

GUISetState()

Local $acKeys[1][2] = [['^p', $pPreview]]

GUISetAccelerators($acKeys, $hWnd)

While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $pPreview
            prtPrevw()
        Case $GUI_EVENT_CLOSE
            _GUICtrlRichEdit_Destroy($pEditWindow)
            Exit
    EndSwitch
WEnd

Func prtPrevw()
    Local $dc
    $dc = __GetDC_PrinterSetup()
    __RTF_Preview($dc, $pEditWindow)
EndFunc

Hopefully I'm just doing something trivial. Thanks for the help and the library!

EDIT: Added code for clarity.

Edited by MikahS

Snips & Scripts


My Snips: graphCPUTemp ~ getENVvars
My Scripts: Short-Order Encrypter - message and file encryption V1.6.1 ~ AuPad - Notepad written entirely in AutoIt V1.9.4

Feel free to use any of my code for your own use.                                                                                                                                                           Forum FAQ

 

Link to comment
Share on other sites
mLipok Universalist

mLipok

Posted
  • Author
Posted

@MikahS one tip:

Where you have defined your equivalent:

$__API_RTF_Printer[$__hRTF_RichEditPre]

Signature beginning:
* Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
* ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Code * for other useful stuff click the following button:

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST API * ErrorLog.au3 UDF - A logging Library * Include Dependency Tree (Tool for analyzing script relations) * Show_Macro_Values.au3 *

 

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 UDF * ADO.au3 UDF * SMTP Mailer UDF * Dual Monitor resolution detection * * 2GUI on Dual Monitor System * _SciLexer.au3 UDF * SciTE - Lexer for console pane * 

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: * Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Good coding practices in AutoIt * 

OpenOffice/LibreOffice/XLS Related: WriterDemo.au3 * XLS/MDB from scratch with ADOX

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * IE in TaskScheduler * IE Embedded Control Versioning (use IE9+ and HTML5 in a GUI) * PDF Related: * How to get reference to PDF object embeded in IE * IE on Windows 11 * 

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

I also encourage you to check awesome @trancexx code:  * Create COM objects from modules without any demand on user to register anything. * Another COM object registering stuff * OnHungApp handler * Avoid "AutoIt Error" message box in unknown errors  * HTML editor * 

winhttp.au3 related : * https://www.autoitscript.com/forum/topic/206771-winhttpau3-download-problem-youre-speaking-plain-http-to-an-ssl-enabled-server-port/

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

Signature last update: 2023-04-24

Link to comment
Share on other sites
MikahS Universalist

MikahS

Posted
Posted

 

@MikahS one tip:

Where you have defined your equivalent:

$__API_RTF_Printer[$__hRTF_RichEditPre]

 

Hmm, must be missing something yet again. I changed my RichEdit_Create statement to be identical and it still did not give me a print preview.

$pEditWindow = _GUICtrlRichEdit_Create($hWnd, "", 0, 0, 100, 100, $ES_MULTILINE)

Snips & Scripts


My Snips: graphCPUTemp ~ getENVvars
My Scripts: Short-Order Encrypter - message and file encryption V1.6.1 ~ AuPad - Notepad written entirely in AutoIt V1.9.4

Feel free to use any of my code for your own use.                                                                                                                                                           Forum FAQ

 

Link to comment
Share on other sites
MikahS Universalist

MikahS

Posted
Posted (edited)

Tried changing it to

_GUICtrlRichEdit_Create($hWnd, "", 0, 0, 100, 100, $ES_MULTILINE + $ES_AUTOVSCROLL)

still nothing :(

Am I flawed in calling 

__RTF_Preview($dc, $pEditWindow)
? Edited by MikahS

Snips & Scripts


My Snips: graphCPUTemp ~ getENVvars
My Scripts: Short-Order Encrypter - message and file encryption V1.6.1 ~ AuPad - Notepad written entirely in AutoIt V1.9.4

Feel free to use any of my code for your own use.                                                                                                                                                           Forum FAQ

 

Link to comment
Share on other sites
mLipok Universalist

mLipok

Posted
  • Author
Posted

Q: What you realy want to do is: Display this RichEditPreview in new window ?

Signature beginning:
* Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
* ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Code * for other useful stuff click the following button:

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST API * ErrorLog.au3 UDF - A logging Library * Include Dependency Tree (Tool for analyzing script relations) * Show_Macro_Values.au3 *

 

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 UDF * ADO.au3 UDF * SMTP Mailer UDF * Dual Monitor resolution detection * * 2GUI on Dual Monitor System * _SciLexer.au3 UDF * SciTE - Lexer for console pane * 

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: * Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Good coding practices in AutoIt * 

OpenOffice/LibreOffice/XLS Related: WriterDemo.au3 * XLS/MDB from scratch with ADOX

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * IE in TaskScheduler * IE Embedded Control Versioning (use IE9+ and HTML5 in a GUI) * PDF Related: * How to get reference to PDF object embeded in IE * IE on Windows 11 * 

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

I also encourage you to check awesome @trancexx code:  * Create COM objects from modules without any demand on user to register anything. * Another COM object registering stuff * OnHungApp handler * Avoid "AutoIt Error" message box in unknown errors  * HTML editor * 

winhttp.au3 related : * https://www.autoitscript.com/forum/topic/206771-winhttpau3-download-problem-youre-speaking-plain-http-to-an-ssl-enabled-server-port/

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

Signature last update: 2023-04-24

Link to comment
Share on other sites
MikahS Universalist

MikahS

Posted
Posted

Q: What you realy want to do is: Display this RichEditPreview in new window ?

 

Yep, I was just hoping your __RTF_Preview() function would do it for me. :)

I think in terms of time I might just make up something myself, as I cannot get the result I would like from it :(

Snips & Scripts


My Snips: graphCPUTemp ~ getENVvars
My Scripts: Short-Order Encrypter - message and file encryption V1.6.1 ~ AuPad - Notepad written entirely in AutoIt V1.9.4

Feel free to use any of my code for your own use.                                                                                                                                                           Forum FAQ

 

Link to comment
Share on other sites
mLipok Universalist

mLipok

Posted
  • Author
Posted

I'll be thinking on this at night, now I have a nice evening.
Check tomorrow morning, or rather afternoon.

Signature beginning:
* Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
* ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Code * for other useful stuff click the following button:

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST API * ErrorLog.au3 UDF - A logging Library * Include Dependency Tree (Tool for analyzing script relations) * Show_Macro_Values.au3 *

 

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 UDF * ADO.au3 UDF * SMTP Mailer UDF * Dual Monitor resolution detection * * 2GUI on Dual Monitor System * _SciLexer.au3 UDF * SciTE - Lexer for console pane * 

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: * Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Good coding practices in AutoIt * 

OpenOffice/LibreOffice/XLS Related: WriterDemo.au3 * XLS/MDB from scratch with ADOX

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * IE in TaskScheduler * IE Embedded Control Versioning (use IE9+ and HTML5 in a GUI) * PDF Related: * How to get reference to PDF object embeded in IE * IE on Windows 11 * 

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

I also encourage you to check awesome @trancexx code:  * Create COM objects from modules without any demand on user to register anything. * Another COM object registering stuff * OnHungApp handler * Avoid "AutoIt Error" message box in unknown errors  * HTML editor * 

winhttp.au3 related : * https://www.autoitscript.com/forum/topic/206771-winhttpau3-download-problem-youre-speaking-plain-http-to-an-ssl-enabled-server-port/

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

Signature last update: 2023-04-24

Link to comment
Share on other sites
MikahS Universalist

MikahS

Posted
Posted

I'll be thinking on this at night, now I have a nice evening.

Check tomorrow morning, or rather afternoon.

 

Thank you for your time mLipok :)

Snips & Scripts


My Snips: graphCPUTemp ~ getENVvars
My Scripts: Short-Order Encrypter - message and file encryption V1.6.1 ~ AuPad - Notepad written entirely in AutoIt V1.9.4

Feel free to use any of my code for your own use.                                                                                                                                                           Forum FAQ

 

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing
×
×
  • Create New...