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

¦p¦ó³]©w¤@½d³òÀx¦s®æ¤º®e¬°¦C¦Lªº­¶­º©O?¡]©M­ì³]©w¤§­¶­º¨Ö¥Î¡^

¥»©«³Ì«á¥Ñ Hsieh ©ó 2010-9-16 18:56 ½s¿è

¦C¦L½d³ò³]¬°A3:AJ49
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Luna
§Aªºª©­±³]©w³£¥ÎVBA¥h³]©w­¶­º¤F
¬Û«H¥h³]©w¦C¦L½d³ò¤£¬O°ÝÃD§a
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

  1. Sub PictureHeader()
  2.     ActiveSheet.PageSetup.CenterHeaderPicture.Filename = _
  3.         "C:\log.TIF" '¹Ï¤ù¸ô³w
  4.     With ActiveSheet.PageSetup
  5.         .PrintTitleRows = "$6:$7"
  6.         .PrintTitleColumns = "$A:$A"
  7.     End With
  8.     ActiveSheet.PageSetup.PrintArea = "A3:AJ49"
  9.     With ActiveSheet.PageSetup
  10.         .CenterHeader = "&G" & Chr(10) & [=F1& "      " & L1 & N1 & O1 & P1 &"        "&Q1]
  11.     End With
  12. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD