ÓÃWordºê¼Ç¼Îļþ´òӡʱ¼ä¼°ÎļþÃû³Æ
¡¡Ô±¹¤ÉÏ°àÒª´ò¿¨¡¢¼Æ¼þ£¬´òÓ¡»ú¹¤×÷ÊDz»ÊÇÒ²Òª¡°¼Ç¹¤¡±ÄØ£¿°Ñ´òÓ¡µÄÎļþÃû¡¢´òӡʱ¼ä¼Ç¼ÏÂÀ´£¬¿É´Ó·½±ã¹ÜÀíÔ±Á˽â´òÓ¡»úµÄʹÓÃÇé¿ö£¬ÕâÖÖÓ¦ÓöÔһЩ¹«ÓõçÄÔÏԵ÷dz£ÓÐÒâÒå¡£
¡¡¡¡ÔÚÒ»°ãµÄ°ì¹«ÊÒÀʹÓôòÓ¡»ú×î¶àµÄ·ÇWordĪÊô£¬ÎÒ±àдÁËÒ»¸öWordºê£¬µ±ÓÐÈË´òÓ¡ÎĵµÊ±£¬ºê¾Í±»¼¤»î²¢Ö´ÐУ¬½«´òÓ¡ÈÎÎñ¼Ç¼ÔÚÒ»¸öÎı¾ÎļþÖУ¬¹©¹ÜÀíÈËÔ±Ëæʱ²éÔÄ¡£ÏÂÃæ½éÉÜʵÏÖ·½·¨¡£
¡¡¡¡µÚÒ»²½£º
¡¡¡¡Æô¶¯Word£¬µ¥»÷²Ëµ¥[¹¤¾ß]¡ú[ºê]¡ú[ºê]£¬ÔÚ¡°ºêÃû¡±¿òÖÐÊäÈëºêÃû¡°FilePrint¡±£¬µ¥»÷[´´½¨]°´Å¥¡£
¡¡¡¡µÚ¶þ²½£º
¡¡¡¡ÔÚµ¯³öµÄVisual Basic±à¼Æ÷µÄ´úÂë´°¿ÚÖÐÍê³ÉÒÔÏÂÄÚÈÝ£º
¡¡¡¡Sub FilePrint()
¡¡¡¡Dialogs(wdDialogFilePrint).Show
¡¡¡¡DName = ActiveDocument.Path + "" + ActiveDocument.Name
¡¡¡¡If ActiveDocument.Path = "" Then DName = "δ±£´æÎĵµ"
¡¡¡¡Tim = Str(Date) + "ÈÕ" + Str(Time)
¡¡¡¡Open "d:langzi.dat" For Append As #1
¡¡¡¡Print #1, "ÓÚ" + Tim+ "´òÓ¡" + DName
¡¡¡¡Close #1
¡¡¡¡End Sub
¡¡¡¡Sub FilePrintDefault()
¡¡¡¡ActiveDocument.PrintOut
¡¡¡¡¡¡(Öظ´ÉÏÃæµÚ3ÖÁ8ÐÐÄÚÈÝ)
¡¡¡¡End Sub
¡¡¡¡µÚÈý²½£º
¡¡¡¡Â¼ÈëÍê³Éºó£¬µ¥»÷[±£´æ]°´Å¥£¬ÔÙµ¥»÷²Ëµ¥[Îļþ]¡ú[¹Ø±Õ²¢·µ»ØWord]£¬È«²¿²Ù×÷Íê³É¡£
¡¡¡¡ÉÏÃæµÄ´úÂë°üº¬Á½¸öºê£¬µÚÒ»¸öFilePrintºêÔÚÓû§Ö´ÐÐ[Îļþ]¡ú[´òÓ¡]²Ëµ¥ÃüÁîʱ×Ô¶¯ÔËÐУ¬µÚ¶þ¸öFilePrintDefaultºêÔÚÓû§Ö´Ðй¤¾ßÀ¸ÉϵÄ[´òÓ¡]°´Å¥Ê±×Ô¶¯ÔËÐУ¬ºêÔÚÔËÐÐʱÊ×ÏÈÖ´ÐÐÕý³£µÄ´òÓ¡²Ù×÷£¬È»ºóÌáÈ¡Ëù´òÓ¡ÎĵµµÄ·¾¶ºÍÎļþÃû£¬ÒÔ¼°µ±Ç°ÈÕÆÚºÍʱ¼ä£¬²¢½«ÕâЩÊý¾ÝдÈëµ½d:lanzi.datÎļþÖÐ(´ËÎļþ¿ÉÔÚ´úÂëÖÐÐÞ¸Ä)¡£ÓüÇʱ¾´ò¿ªÕâ¸ö¼Ç¼Îļþ£¬´òÓ¡¹ýµÄÎļþ¶¼ÏêϸµÄ¼Ç¼ÔÚ°¸(Èçͼ)¡£
ͼ1