¼g¤@Ó¥t¦s·sÀɪº¥¨¶°¡A¦ý¬O»Ýn.pdf file¡A¨º»òÀ³«ç§ï¼g¡H
- ©«¤l
- 26
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 34
- ÂI¦W
- 0
- §@·~¨t²Î
- OSX
- ³nÅ骩¥»
- OSX
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2012-12-16
- ³Ì«áµn¿ý
- 2014-2-7
|
¦^´_ 11# GBKEE
À³¸Ó¬O¡G
µo²¼½s¸¹_·|û½s¸¹_·|û¦WºÙ
INV12345_1122_©P¨ÌÀM.pdf (³oµo²¼¦¨¥\¦C¦L¤Î¦sÀÉ)
¦ý·í¥t¤@¦ì¦P¨Æ¶}·sµo²¼®É¡A¦o¤S§Ñ¤F§ó§ïµo²¼½s¸¹¥u§ó·s¤F·|û¸ê®Æ¦ý¤Sª½±µ¦C¦L¤Î¦sÀÉ
«K·|¥X²{¤F¬Û¦Pªºµo²¼½s¸¹¦p¤U¡G
INV12345_1155_¦¶¤d³·.pdf
·|û¦¬¶O¸ê®Æ§ó·s¤F¡A¦ý¬Oµo²¼½s¸¹«½Æ¤F
·|û½s¸¹¤Î·|û¦WºÙ¬O·|±`±`«½Æªº¡A¦ýµo²¼½s¸¹¤£¯à«½Æ¡A©Ò¥HÀɦW¯à¤£¯à¥u°w¹ïµo²¼½s¸¹¤£¯à«½Æ§@¥X´£¥Ü |
|
|
|
|
|
|
- ©«¤l
- 26
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 34
- ÂI¦W
- 0
- §@·~¨t²Î
- OSX
- ³nÅ骩¥»
- OSX
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2012-12-16
- ³Ì«áµn¿ý
- 2014-2-7
|
¦^´_ 13# GBKEE
§Ú¥[¤F¦b¡§¬õ¦â¡¨¨º³B¡A¤£¯à¦¨¥\¹B§@¡A§Ú¬O§_©ñ¿ù¦ì¸m©Î¥´¿ù¬Æ»ò¡H
Option Explicit
Sub Print_and_SavePDF()
Dim File_Name As String, xFile As String, xSNo As String, xName As String
xFile = Range("D6")
xSNo = Range("L7") 'xSNo «K¬Oµo²¼½s¸¹ªº¦ì¸m
xName = Range("M7")
File_Name = xFile & "_" & xSNo & "_" & xName & ".pdf"
ActiveWorkbook.Save
ChDrive "D:\"
If Mid(CurDir, 1, 1) <> "d" Then ChDrive "d:\"
ChDir "d:\Account book\INV\"
If Dir("d:\Account book\INV\" & " xSNo " & "*.pdf ")<> "" Then
MsgBox "µo²¼½s¸¹ ¤w¶}¥X"
Exit Sub
Do
File_Name = InputBox("¥t¦s·sÀÉ", "[ÀɮצsÀÉ]", File_Name)
If File_Name = "" Then
Exit Sub
Else
If Dir(File_Name) <> "" Then
If MsgBox("¡iª`·N¡jÀɮצWºÙ¤w¸g¦s¦b¡C¬O§_nÂл\¥¦¡H¦pÂл\¥¦¸ê®Æ±N·|³Q§ó·s¡C", vbYesNo) = vbYes Then
Exit Do
Else
File_Name = ""
End If
End If
End If
End If
Loop While Not UCase(File_Name) Like "*.PDF"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xFile & "_" & xSNo & "_" & xName & ".pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("N13").Select
End Sub |
|
|
|
|
|
|
- ©«¤l
- 26
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 34
- ÂI¦W
- 0
- §@·~¨t²Î
- OSX
- ³nÅ骩¥»
- OSX
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2012-12-16
- ³Ì«áµn¿ý
- 2014-2-7
|
¦^´_ 15# GBKEE
¦¨¥\¹B¦æ¡A¦ý¬O«½Æ µo²¼½s¸¹ ¨S¦³³Q´£¥Ü |
|
|
|
|
|
|
- ©«¤l
- 26
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 34
- ÂI¦W
- 0
- §@·~¨t²Î
- OSX
- ³nÅ骩¥»
- OSX
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2012-12-16
- ³Ì«áµn¿ý
- 2014-2-7
|
¦^´_ 17# GBKEE
´ú¸Õ¤F´X¦¸¡A¨Ì¤@¼Ë¡A¬Û¦Pªºµo²¼½s¸¹¥i¥H«½Æ¦sÀÉ
INV12345_1122_©P¨ÌÀM.pdf
INV12345_1123_§õ¤lÀs.pdf
INV12345_1124_¦¶¥¿©_.pdf
·PÁª©¤j:D
¥Ñ©óµo²¼½s¸¹¬O¤H¥´Áä¤Jªº¡A¦]¦¹¥X¿ù¬O¸g±`µo¥Í¡C
¦pªG´«¥t¤@Ӥ覡¡A¥[¤J¦Û°Ê½s¸¹¡A©óÀx¦s®æ¤º¡A§Y¬O¨C¦¸¥t¦s·sÀÉ«á¡A³£·|¸õ¤@Ó·sªº½s¸¹¥X¨Ó¡A«KªÖ©w¤£·|¥X¿ù¡C |
|
|
|
|
|
|
- ©«¤l
- 26
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 34
- ÂI¦W
- 0
- §@·~¨t²Î
- OSX
- ³nÅ骩¥»
- OSX
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2012-12-16
- ³Ì«áµn¿ý
- 2014-2-7
|
¥»©«³Ì«á¥Ñ Blade ©ó 2012-12-22 01:05 ½s¿è
¦^´_ 19# GBKEE - Option Explicit
- Sub ¥t¦s·sÀÉ´ú¸Õ()
- Dim File_Name As String, xFile As String, xSNo As String, xName As String
- xFile = Range("D6")
- xSNo = Range("L7")
- xName = Range("M7")
- File_Name = xFile & "_" & xSNo & "_" & xName & ".pdf"
- ActiveWorkbook.Save
- ChDrive "D:\"
- If Mid(CurDir, 1, 1) <> "d" Then ChDrive "d:\"
- ChDir "d:\Account book\INV\"
- If Dir("d:\Account book\INV\*" & " xSNo " & "*.pdf ") <> "" Then
- MsgBox "µo²¼½s¸¹ "& xSNo &" ¤w¶}¥X"
- Exit Sub
- End If
- Do
- File_Name = InputBox("¥t¦s·sÀÉ", "[ÀɮצsÀÉ]", File_Name)
- If File_Name = "" Then
- Exit Sub
- Else
- If Dir(File_Name) <> "" Then
- If MsgBox("¡iª`·N¡jÀɮצWºÙ¤w¸g¦s¦b¡C¬O§_nÂл\¥¦¡H¦pÂл\¥¦¸ê®Æ±N·|³Q§ó·s¡C", vbYesNo) = vbYes Then
- Exit Do
- Else
- File_Name = ""
- End If
- End If
- End If
- Loop While Not UCase(File_Name) Like "*.PDF"
- ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xFile & "_" & xSNo & "_" & xName & ".pdf", Quality:=xlQualityStandard _
- , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|