Hello XL-mania,
Bagaimana caranya tulis macro kalau yang di print ada dua range, dalam
1 halaman, maksudnya range1 dan range2 waktu print bisa jadi 1 (satu)
halaman
mohon solusinya
tks

contoh biasanya saya bikin macro untuk print

Sub cmdPrt_click()
  Worksheets("data").Select
  With Worksheets("data").PageSetup
    .Orientation = xlLandscape
    .PrintArea = "Range1"
    .PrintTitleRows = "RSPrintHdr"
    .PaperSize = xlPaperLetter
    .Zoom = 85
    .PrintHeadings = False
    .TopMargin = Application.InchesToPoints(0.2)
    .BottomMargin = Application.InchesToPoints(1)
    .HeaderMargin = Application.InchesToPoints(0.5)
    .FooterMargin = Application.InchesToPoints(1)
    .RightMargin = Application.InchesToPoints(0.1)
    .LeftMargin = Application.InchesToPoints(0.3)
    End With
     If MsgBox("Cetak ke Printer : ? ", vbQuestion + vbYesNo) = vbYes Then
        Worksheets("data").PrintOut
     Else
        Worksheets("data").PrintPreview
     End If
End Sub

 

--
Best regards,
selfersoft
mailto:[EMAIL PROTECTED]






+-:: XL-mania ::::::::::::::::::::----------------------------------+
|                                                                   |
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| [EMAIL PROTECTED] atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni Anda tentang XL-mania di :                      |
| http://www.friendster.com/profiles/xlmania                        |
+-------------------------------------------------------------------+




YAHOO! GROUPS LINKS




Kirim email ke