ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¨Ï±j¨î ´å¼Ð ¯à¶]¨ì¦C¦L¹wÄý

[µo°Ý] ¨Ï±j¨î ´å¼Ð ¯à¶]¨ì¦C¦L¹wÄý

½Ð±Ð¤j¤j:
¦buserform¤U   °õ¦æ print1
¶]¨ìPrintPreview®É
¿Ã¹õÅܬ°  ¦C¦L¹wÄý¦b¤U¼h  userformµøµ¡¦b¤W¼h  ´å¼Ð¤£¯à¶]¨ì¦C¦L¹wÄý
¤]¤£¯à¶]¨ìuserformµøµ¡
¾×±¼¤F    ¨D±Ï
À³¦p¦ó¤U»yªk ¨Ï±j¨î   ´å¼Ð  ¯à¶]¨ì¦C¦L¹wÄý   ©Î......
Sub print1()
     Application.Visible = True
    Sheets("¦¨ÁZ³æ").Visible = True
    Sheets("¦¨ÁZ³æ").Activate
    Sheets("¦¨ÁZ³æ").Select
    ActiveWindow.SelectedSheets.PrintPreview
    Application.Visible = False
    Sheets("¦¨ÁZ³æ").Visible = False
End Sub

½Ð±Ð¤j¤j:
©ÎªÌ   ¦buserform¤U ¦p¦ó¨Ï³à¥¢±j¨î¦^À³Åv À³¦p¦ó¤U»yªk?
                                                                   ÁÂÁ«ü¾É

TOP

¦^´_ 2# yangjie

userform.Show 0
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# Hsieh
ÁÂÁÂ Hsieh
    userform.show¤§¤U  ©|¥¼Â÷¶}¤§³~¤¤   ¤U¤F«ü¥O userform.show 0  ·| error
¤£¹L¤S¤Þµo§Ú¥t¤@­Ó°µªk ¸Ñ¨M¤F°ÝÃD   ÁÂÁ±z
    userform.show¤§¤U
    ..........
    UserForm2.Hide
    Application.Visible = True
    Sheets("¦¬¨ü³æ").Visible = True
    Sheets("¦¬¨ü³æ").Activate
    Sheets("¦¬¨ü³æ").Select
    ActiveWindow.SelectedSheets.PrintPreview
   Application.Visible = False
   Sheets("¦¬¨ü³æ").Visible = False
   UserForm2.Show

TOP

¦^´_ 4# yangjie

ªí³æ¦^À³¤è¦¡¥²»Ý¦b¶}±Òªí³æ®É´N«ü©w
ªí³æ¥¼¨ø¸ü«eµLªk­«·s§ïÅܦ^À³¤è¦¡
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD