- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 174
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2025-7-18
               
|
¦^´_ 4# bvge
µ¥©ó¬O³]©w¦C¦L½d³ò + ¦C¦L¤@¦¸§¹¦¨ (§Ú¦nÃi´k)
¸Ñ¨MÃi´k¤èªk:
¤@¡BÃ㾦^®a·í¤Ö·Ý
¤G¡B¥[±j¦Û§Ú¾³õÄvª§¤O¡A´£¤É¦Û¤vªº¯à¤O
§Q¥Î¨Æ¥óÅX°Êµ{§Ç- Private Sub Workbook_BeforePrint(Cancel As Boolean)
- With ActiveSheet
- r = .[C65536].End(xlUp).Row
- Do Until .Cells(r, 3) <> ""
- r = r - 1
- Loop
- .PageSetup.PrintArea = "A1:AB" & r
- End With
- End Sub
½Æ»s¥N½X
|
|