å¯ä»¥èªå·±å个æå°æé®ï¼è¯¥æé®å¼ç¨ä»¥ä¸ç¨åºï¼å®å¯ä»¥å®ç°æå°ï¼å¹¶èªå¨ä¿åæ件ï¼
Sub Prt()
Set c= ActiveWorkbook '设å®c为æ¬æ件
ActiveWindow.SelectedSheets.PrintOut Copies:=1 'æå°æ¬æ件1份
c.Save 'ä¿åæ¬æ件
End Sub
温馨提示:答案为网友推荐,仅供参考