run ¥¨¶°¦C¦L¦Üpdf Àɮ׫ᤣ¯à¶}±ÒÀÉ®×
- ©«¤l
- 28
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 43
- ÂI¦W
- 0
- §@·~¨t²Î
- window
- ³nÅ骩¥»
- office 2000
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- ¨Ó¦Û
- Hong Kong
- µù¥U®É¶¡
- 2011-1-14
- ³Ì«áµn¿ý
- 2021-8-27
|
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¦ìÀ°¦£ |
|
|
|
|
|
|
- ©«¤l
- 472
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 485
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- MS Office
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »´ä
- µù¥U®É¶¡
- 2010-7-4
- ³Ì«áµn¿ý
- 2014-12-28
|
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 |
|
|
|
|
|
|
- ©«¤l
- 28
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 43
- ÂI¦W
- 0
- §@·~¨t²Î
- window
- ³nÅ骩¥»
- office 2000
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- ¨Ó¦Û
- Hong Kong
- µù¥U®É¶¡
- 2011-1-14
- ³Ì«áµn¿ý
- 2021-8-27
|
|
|
|
|
|
|