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ÀÇ ÄÜÆ®·Ñ Æijڿ¡¼­ '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);

}






Copyright © 2008 by Hyubwoo. Info. Tech. Co., Ltd. All rights reserved.