ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

run ¥¨¶°¦C¦L¦Üpdf Àɮ׫ᤣ¯à¶}±ÒÀÉ®×

run ¥¨¶°¦C¦L¦Üpdf Àɮ׫ᤣ¯à¶}±ÒÀÉ®×

½Ð°Ý¦U¦ì°ª¤â¡A¬°¦ó§Ú¦b¥¨¶°¦C¦L¦Üpdf «á¡AÀɮפ£¯à¶}±Ò¡A·í¶}±ÒÀɮ׮ɥX²{¥H¤U;

""Adobe Reader µLªk¶}±Ò"ÀɮצWºÙ.pdf" ¦]¬°ÀÉ®×Ãþ«¬¤£¨ü¤ä´©¡A©ÎªÌÀɮפw·lÃa(¨Ò¦p§@¬°¹q¤l¶l¥óªþ¥ó¶Ç°e¦ý¸Ñ½X¤£¥¿½T)""

¥H¤U¬O§Úrun ªº¥¨¶° ; save as «á¦A¥h¶}±Ò, «KµLªk¶}±Ò

sub print_to_PDF ()
Dim PDFFileName as string
current_workbook = ActiveWorkbook.Name

mypath = "C:\xxxxxxx"
PDFFileName = myPath
Application.ActivePrinter = "PrimoPDF on Ne00:"
Workbooks(current_workbook).SelectedSheets.PrintOut Copies:=1, ActivePrinter:="PrimoPDF on Ne00",    PrToFileName:=PDFFileName & "¥Ø¼Ð.pdf"

End sub

ÁÂÁ¦U¦ìÀ°¦£

PrToFileName ¬O «üµoµ¹PRINTERªº«ü¥OÀÉ (¨Ò¦pPCL4,PS),
¦Ó¤£¬OPDF µ¥"PRINT¤F¥X¨Ó"ªºªF¦è.
§A»Ý­n¥t§ä¤u¨ã.

EXCEL2007 SP2 / EXCEL 2010¥i¥H§âWORKBOOKª½±µSAVE¦¨PDF
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

ÁÂÁ§Aªº¦^ÂÐ

TOP

        ÀR«ä¦Û¦b : ¤f»¡¦n¸Ü¡B¤ß·Q¦n·N¡B¨­¦æ¦n¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD