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

yangjie

½Ð±Ð¤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

yangjie

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

Hsieh

¦^´_ 2# yangjie

userform.Show 0

yangjie

¦^´_ 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

Hsieh

¦^´_ 4# yangjie

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