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

[µo°Ý] Excel VBA PrintPreview or PrintForm issue

[µo°Ý] Excel VBA PrintPreview or PrintForm issue

¦U¦ì¤j¤j~¤j®a¦n
¤p§Ì¦³¤@¨Æ·Q½Ð°Ý
¤p²Ä°µ¤F¤@±iªí(¨Ï¥Îªí³æUserform)
¨C¦¸¿é¤J§¹¦¨«á³£·|¶×¤J¨ìÁ`ªí,©Ò¥HÁ`ªí¬O²Ö¥[©¹¤U¼W¦Cªº¤è¦¡
«á¨Ó¤p§Ì¤S°µ¤F¤@­Ó«ö¶s¡A·Q­n¹wÄý¦C¦L©Îª½±µ¦C¦L¥X³o¦¸¿é¤Jªº¸ê®Æ
¨Ï¥ÎPrintPreview «á¨C¦¸³£¬O¾ã±iÁ`ªí
­Y¨Ï¥ÎªíÀY¸ò¦¹¦¸¶×¤Jªº¸ê®Æ ³]©w¦C¦L½d³ò¡A·|Åܦ¨¨â­¶
½Ð°Ý¦³¦ó¤è¦¡¯àÅýªíÀY¤Î¶×¤Jªº¸ê®Æ§Ë¦¨¤@­¶¦Ó¤£¬O¤À¶}©O?
Private Sub CommandButton3_Click() '
UserForm1.Hide
Sheets("¿é¤J").PrintPreview
End Sub

§ä¨ì«ç¨Ï¥Î¤F
¦ý»yªk¤W§Ë¤£¤Ó²M·¡~§Æ±æ¨D¸Ñ
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$11"
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = "$A$14M$17"
¨ä¤¤"$A$14M$17"
§Ú¹Á¸Õ§ï¦¨Range(Cells(X, 6), Cells(X + 4, 13))
¦ý³£¥X²{1004 »yªk¿ù»~..½Ð°Ý¦³¸Ñ¶Ü?

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD