HMGforum.com

Code: Select all

**********************************************************
PROCEDURE Print
**********************************************************
LOCAL nLeft, nTop, nRight, nBottom, aSelRange
LOCAL lSuccessVar
LOCAL nRow, nCol, nPag

   SELECT PRINTER DIALOG TO lSuccessVar PREVIEW 

   IF lSuccessVar == .T.

Code: Select all

FUNCTION PRINTWINDOW ( cWindowName , lPreview , ldialog , nRow , nCol , nWidth , nHeight )

Code: Select all

Function main
Local cPrinter

cPrinter := GetPrinter()

If Empty (cPrinter)
  cPrinter := "PDFCreator"
EndIf
..
...
SetDefaultPrinter (cPrinter)
...
...
return

# ifndef __ XHARBOUR__

# pragma BEGINDUMP

# include "hbapi.h"

HB_FUNC_EXTERN (WIN_PRINTERSETDEFAULT); HB_FUNC (SetDefaultPrinter) {HB_FUNC_EXEC (WIN_PRINTERSETDEFAULT); }

# pragma ENDDUMP

# endif

Code: Select all

#include <hmg.ch>
#require "hbwin"

/************************************************/  
Function main
/************************************************/
Public cPrinter:= GetDefaultPrinter()

DEFINE WINDOW Main AT 160 , 314 WIDTH 400 HEIGHT 300 Main TITLE 'Printer Default'

    DEFINE LABEL Label_1
        ROW    30
        COL    38
        WIDTH  250
        HEIGHT 24
        VALUE "default printer : " + cPrinter
        FONTNAME "Arial"
        FONTSIZE 12
        TOOLTIP ""
        END LABEL
	
	 DEFINE BUTTON Button_1
        ROW    97
        COL    100
        WIDTH  140
        HEIGHT 28
        ACTION Prn()
        CAPTION "Set printer PDFcreator"
    END BUTTON
	
    DEFINE LABEL Label_2
        ROW    170
        COL    38
        WIDTH  300
        HEIGHT 24
		VALUE ""
        FONTNAME "Arial"
        FONTSIZE 14
       FONTBOLD .T.
    END LABEL

END WINDOW

Main.Center
Main.Activate
Return 

/************************************************/
Function Prn()
/************************************************/
win_printerSetDefault( "PDFcreator" )
cPrinter  := "Default printer : " + GetDefaultPrinter()
Main.Label_2.Visible := .T.
Main.Label_2.Value := cPrinter
Main.Label_2.Refresh
Return