LEADTOOLS ePrint Pro 코드팁들_004

ePrint 페이지들의 백그라운드 칼라를 변경하는 방법:

Start -> Programs -> LEADTOOLS ePrint5 -> ePrint Workstation 를 오픈
File - > New 또는 CTRL + N 로 부터 공 페이지를 삽입
애노테이션 툴바로 부터 직사각형의 애노테이션 툴을 선택
모든 페이지들을 카바하기 위해 하나의 직사각형을 드로우
“애노테이션 속성들” 툴바상의 “Format Annotation Options” 버튼을 클릭
예를들어 청색 칼라에 대해 원하는 칼라로 Fill 칼라를 변경
라인 탭을 클릭
"No Line"이 되도록 Dashed Property를 변경
Thumbnail상 오른쪽 마우스 클릭을 하고 메뉴 아이템상 “Add to Forms” 을 누름
예를들어 "blue background" 에 대해 폼 명을 타입
ePrint workstation 으로 임의 문서를 프린트
생성된 폼 "blue background"를 선택하기 위해 편집 메뉴 아이템으로 부터 선택 폼을 사용
이 기술을 이용하여 사용자는 애노테이션 객체들을 사용한 사용자 고유의 폼들을 제작할 수 있음.

LEADTOOLS ePrint API 코드팁들_003

ePrint API를 사용하여 문서들의 배치 변환하는 방법

Private Const SW_SHOWMINIMIZED = 2
Private Const PRINTER_NAME = "LEADTOOLS ePrint 5"
Dim ePrint As New ePrint
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub MyConvertDoc(strFile As String)
Dim PrinterName As String
strPrinterName = """" + PRINTER_NAME + """"
ShellExecute 0, "printto", strFile, strPrinterName, 0, SW_SHOWMINIMIZED
End Sub

Private Sub ConvertDocuments()

Dim szFiles(5) As String
' list of files to be converted
szFiles(1) = "C:\Document1.doc"
szFiles(2) = "C:\Document2.doc"
szFiles(3) = "C:\Document3.doc"
szFiles(4) = "C:\Document4.doc"
szFiles(5) = "C:\Document5.doc"

' convert them
ConvertDocuments szFiles, 5

End Sub

Private Sub ConvertDocuments(szFiles() As String, nPages As Integer)
Dim fileName As String
Dim saveOptions As New EpnMultiSaveOptions

' change printer save options
ePrint.GetPrinterSaveOptions PRINTER_NAME, saveOptions
saveOptions.PrinterSaveOptions(0).saveOptions.DocumentType = FT_SAVE_TYPE_DOCUMENT
saveOptions.PrinterSaveOptions(0).saveOptions.Format = FILE_PDF
saveOptions.UseSave = True
ePrint.SetPrinterSaveOptions PRINTER_NAME, saveOptions

For i = 1 To nPages
' change output document name
fileName = "c:\Document" & i & ".pdf"
saveOptions.PrinterSaveOptions(0).saveOptions.fileName = fileName
ePrint.SetPrinterSaveOptions PRINTER_NAME, saveOptions

' start Document conversion.
ePrint.StartDocumentConversion PRINTER_NAME, 0
' print to printer
MyConvertDoc szFiles(i)
' end document conversion.
ePrint.EndDocumentConversion PRINTER_NAME, 0
Next i

End Sub

Private Sub Convert_Click()
ConvertDocuments
End Sub

Private Sub Form_Load()
ePrint.UnlockSupport SUPPORT_GENERAL, UNLOCKKEY

End Sub

LEADTOOLS ePrint API 코드팁들_002

ePrint COM 객체를 사용하여 VB 사진 컨트롤 상에 프린트된 페이지를 디스플레이 하는 방법 구현

Public WithEvents ePrint1 As ePrint

'....

Private Sub Form_Load()
Const PRINTER_NAME = "LEADTOOLS ePrint 5"
Set ePrint1 = New ePrint
ePrint1.UnlockSupport EPN_SUPPORT_GENERAL,
SUPPORT_GENERAL_KEY
ePrint1.EnableRasterEvent(PRINTER_NAME) = True
End Sub

'....

' handle RasterEvent of ePrint1 Object
Private Sub ePrint1_RasterEvent(ByVal PrinterName As String, ByVal
lType As Long, ByVal PrnImage As stdole.IPictureDisp)

' Picture1 is Picture Object placed on the Form.
Picture1.Picture = PrnImage
End Sub

LEADTOOLS ePrint API 코드팁들_001

eMail을 변환하여 송부
사용자는 ePrint를 사용하여, 이메일 수신자에게 하나의 문서를 Leadtools이 지원하는 임의 파일 포멧으로 변환한 다음 이를 별첨 파일 형태로 보낼 수 있습니다. 이 기능을 실제 사용하기 위해 사용자는 ePrint의 콘트롤 파넬에서 'ePrint Mail' 아이콘을 다블클릭하고, 이때 'LEADTOOLS ePrint eMail" 속성 다이얼로그 박스가 디스플레이되면 그 박스를 통해 송신자 및 수신자 이메일 주소, SMTP 서버 명, 어카운트 명 및 패스워드등을 규정할 수 있습니다.
PDF 파일에 워터마크 추가
ePrint를 사용하여 사용자는 PDF 문서에 워터마크를 손 쉽게 추가할 수 있습니다. 'Save as Type' 드롭다운리스트에서 PDF를 선택하고, 'Advanced' 버튼을 클릭하면 새로운 다이얼로그가 나타납니다. 그 다이얼로그에서 'WATERMARKS' 탭을 선택하고, 'Place On' 드롭다운리스트를 원하는 옵션(ALL/Odd/Even 페이지 선택등)으로 변경할 수 있습니다.
문서/벡터 파일의 저장
문서 파일 또는 벡터 파일을 저장시, BPP(Bits per Pixel)를 0 로 설정하는 것이 바람직하며 이를 위한 셈플 코드는 아래와 같습니다.

void ChangeGlobalSettings (CHAR* pszPrinterName)
{

PRNGLOBAL_USERSETTINGS gs;
gs.nSize = sizeof(PRNGLOBAL_USERSETTINGS);

// get Old globalSetings.
L_PrnGetUserSettings(pszPrinterName,&gs,NULL);

// set target format to Doc 97
gs.SaveSettings.nFormat = FILE_DOC_97;

// you must set Bits Per Pixel to Zero for document and vector formats.
gs.SaveSettings.nBitsPerPixel = 0;

// set save options flag.
gs.uFlags |= PRN_USESAVESETTINGS;

// remove using Email settings and Print routing settings.
gs.uFlags &= ~(PRN_USEEMAILSETTINGS | PRN_USEPROUTSETTINGS );

// set destination directory and file name
strcpy(gs.SaveSettings.szDirectory,"C:\\test");
strcpy(gs.SaveSettings.szFileName,"test.jpg");

// set multiple file options to Separate Jobs "Each Print as Separate File"
gs.SaveSettings.uSaveMulti = PRN_SAVE_SEPARATEJOBS;

// update global settings.
L_PrnSetUserSettings (pszPrinterName,&gs,NULL);

}