15 Messages
Digest #2844
Messages
Sun Mar 23, 2014 4:28 pm (PDT) . Posted by:
"Aliif Akbar" aliif.akbar
Selamat pagi,
Mr.Kid,
Saya buka link disitu,
Di link kan itu buat setup di worksheet,
Nha saya setting pagesetup untuk userform,
Begini codenya
With Userform
.PageSetup.PaperSize = xlPaperA5
.PageSetup.Orientation = xlLandscape
me.PrintOut
End With
Tapi kenapa gag bisa ya?
Apakah userform itu emang disetting gbisa diprint dengan pagesetup?
Atau kode saya yang salah?
Mohon pencerahannya Mr.Kid dan rekan2 lainnya,...
#colek bang anton dan bang dwint.
Aliif Akbar
Sent from Yahoo Mail on Android
Mr.Kid,
Saya buka link disitu,
Di link kan itu buat setup di worksheet,
Nha saya setting pagesetup untuk userform,
Begini codenya
With Userform
.PageSetup.PaperSiz
.PageSetup.Orientat
me.PrintOut
End With
Tapi kenapa gag bisa ya?
Apakah userform itu emang disetting gbisa diprint dengan pagesetup?
Atau kode saya yang salah?
Mohon pencerahannya Mr.Kid dan rekan2 lainnya,...
#colek bang anton dan bang dwint.
Aliif Akbar
Sent from Yahoo Mail on Android
Sun Mar 23, 2014 7:09 pm (PDT) . Posted by:
"dwint ruswanto"
wah.. ada yang colek2 ane nih [?]
pak Aliif, sependek pengetahuan ane.. user form tidak memiliki properti
untuk page setup, alternatifnya adalah:
>> copas userform ke sebuah sheet sebagai image
>> lakukan setting pada worksheetnya untuk dicetak
kira2 scriptnya akan seperti ini:
script pada module:
Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const VK_SNAPSHOT = &H2C
Sub Nama_Prosedurnya()
Nama_Formnya.Show
End Sub
script pada user form:
Private Sub NamaTombolnya_Click()
keybd_event VK_SNAPSHOT, 0, 0, 0
Workbooks.Add
Application.Wait Now + TimeValue("00:00:01")
ActiveSheet.PasteSpecial Format:="Bitmap", Link:=False, _
DisplayAsIcon:=False
ActiveSheet.Range("A1").Select
' di sini code untuk PageSetUp-nya
ActiveSheet.PageSetupPageSetup.PaperSize = xlPaperA5
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveWindow.SelectedSheets.PrintOut Copies:=1
' tutup workbooknya tanpa disimpan
ActiveWorkbook.Close False
End Sub
cmiiw,
Wassalamu'alaikum wr. wb.,
-dwint-
Pada 24 Maret 2014 06.26, Aliif Akbar <aliif.akbar@yahoo.co.id> menulis:
>
>
> Selamat pagi,
> Mr.Kid,
> Saya buka link disitu,
> Di link kan itu buat setup di worksheet,
> Nha saya setting pagesetup untuk userform,
> Begini codenya
>
> With Userform
> .PageSetup.PaperSize = xlPaperA5
> .PageSetup.Orientation = xlLandscape
> me.PrintOut
> End With
>
> Tapi kenapa gag bisa ya?
> Apakah userform itu emang disetting gbisa diprint dengan pagesetup?
>
> Atau kode saya yang salah?
> Mohon pencerahannya Mr.Kid dan rekan2 lainnya,...
>
> #colek bang anton dan bang dwint.
>
> Aliif Akbar
> Sent from Yahoo Mail on Android<https://overview.mail.yahoo.com/mobile/?.src=Android>
>
>
pak Aliif, sependek pengetahuan ane.. user form tidak memiliki properti
untuk page setup, alternatifnya adalah:
>> copas userform ke sebuah sheet sebagai image
>> lakukan setting pada worksheetnya untuk dicetak
kira2 scriptnya akan seperti ini:
script pada module:
Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const VK_SNAPSHOT = &H2C
Sub Nama_Prosedurnya()
Nama_Formnya.Show
End Sub
script pada user form:
Private Sub NamaTombolnya_Click()
keybd_event VK_SNAPSHOT, 0, 0, 0
Workbooks.Add
Application.Wait Now + TimeValue("00:00:01")
ActiveSheet.PasteSpecial Format:="Bitmap", Link:=False, _
DisplayAsIcon:=False
ActiveSheet.Range("A1").Select
' di sini code untuk PageSetUp-nya
ActiveSheet.PageSetupPageSetup.PaperSize = xlPaperA5
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveWindow.SelectedSheets.PrintOut Copies:=1
' tutup workbooknya tanpa disimpan
ActiveWorkbook.Close False
End Sub
cmiiw,
Wassalamu'alaikum wr. wb.,
-dwint-
Pada 24 Maret 2014 06.26, Aliif Akbar <aliif.akbar@yahoo.co.id> menulis:
>
>
> Selamat pagi,
> Mr.Kid,
> Saya buka link disitu,
> Di link kan itu buat setup di worksheet,
> Nha saya setting pagesetup untuk userform,
> Begini codenya
>
> With Userform
> .PageSetup.PaperSize = xlPaperA5
> .PageSetup.Orientation = xlLandscape
> me.PrintOut
> End With
>
> Tapi kenapa gag bisa ya?
> Apakah userform itu emang disetting gbisa diprint dengan pagesetup?
>
> Atau kode saya yang salah?
> Mohon pencerahannya Mr.Kid dan rekan2 lainnya,...
>
> #colek bang anton dan bang dwint.
>
> Aliif Akbar
> Sent from Yahoo Mail on Android<https://overview.mail.yahoo.com/mobile/?.src=Android>
>
>
Sun Mar 23, 2014 7:37 pm (PDT) . Posted by:
"prazt" praztmath
Saya udah coba dan hasil seperti terlampir, Cuma saya merasa loading masih
agak lama, mohon bantuannya supaya jadi tidak terlalu lama Mr.Kin dan
rekan-rekan yg lain.
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Mr. Kid
Sent: 22 Maret 2014 11:41
To: BeExcel
Subject: Re: [belajar-excel] mengatur ukuran kertas dengan vba
Atau malah printernya sedang tidak terpasang ;)
Coba pasang dulu printernya ke komputer.
Jadi, pastikan ukuran kertas dimiliki si printer dan sudah terpasang ke
komputer.
Wassalam,
Kid.
2014-03-22 11:09 GMT+07:00 Bagus <bagus@kingjim.co.id>:
Pak Prazt;
Mungkin ini karena ukuran tsb tidak dikenali oleh default printer yang kita
gunakan.
coba pada dialog printer, pilih properties..
lihat pada paper sizenya..
apakah ada ukuran / tipe kertas yg kita gunakan tsb..?
ditempat saya ada 2 printer. (HP dan Xerox)
dua2nya tidak mengenal ukuran "xlPaperA4Small" dan
"xlPaperFanfoldLegalGerman"
setelah sekripnya saya ganti menjadi "xlPaperA4" dan "xlPaperFolio"
yang A4 dikenali dua2nya (bisa berjalan dikedua printer tsb) => tdk muncul
debug
Folio hanya dikenali oleh Xerox, sedangkan HP tidak mengenalinya.
jadi ketika saya set printer xerox sebagai default tidak muncul debug,
sedangkan ketika saya set defaultnya HP maka muncul debug.
Mungkin begitu..
Wassalam
~ Bagus ~
----- Original Message -----
From: prazt <mailto:praztmath@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Saturday, March 22, 2014 9:19 AM
Subject: RE: [belajar-excel] mengatur ukuran kertas dengan vba [1
Attachment]
Maap lampiran ketinggalan mr kid
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Mr. Kid
Sent: 21 Maret 2014 23:10
To: BeExcel
Subject: Re: [belajar-excel] mengatur ukuran kertas dengan vba
Wa'alaikumussalam Wr. Wb.
Coba :
Sheets("nama sheetnya").pagesetup.papersize=
isi_dengan_opsi_macam_kertas_yang_diawali_dengan_xl
bagian :
isi_dengan_opsi_macam_kertas_yang_diawali_dengan_xl
bisa dilihat daftarnya di :
http://msdn.microsoft.com/en-us/library/office/ff834612%28v=office.15%29.asp
x
Wassalamu'alaikum Wr. Wb.,
Kid.
2014-03-21 16:53 GMT+07:00 prazt <praztmath@gmail.com>:
Assalam...para exceller semua, mohon bantuan bagaimana scrib VBA untuk
mengatur ukuran kertas pada sheet yang sudah di set print area ? saya sudah
mencoba menggunakan record macro tapi masih bingung juga mana yang harus di
pakai dan mana yang harus di buang, misal saya ingin mengatur dengan ukuran
kertas Folio (21 cm x 33 cm). Ilustrasi seperti terlampir..
_____
Email ini bebas virus dan malware karena avast! Antivirus
<http://www.avast.com/> proteksi aktif.
_____
<http://www.avast.com/>
Email ini bebas virus dan malware karena avast! Antivirus
<http://www.avast.com/> proteksi aktif.
---
Email ini bebas dari virus dan malware karena Proteksi avast! Antivirus aktif.
http://www.avast.com
agak lama, mohon bantuannya supaya jadi tidak terlalu lama Mr.Kin dan
rekan-rekan yg lain.
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Mr. Kid
Sent: 22 Maret 2014 11:41
To: BeExcel
Subject: Re: [belajar-excel] mengatur ukuran kertas dengan vba
Atau malah printernya sedang tidak terpasang ;)
Coba pasang dulu printernya ke komputer.
Jadi, pastikan ukuran kertas dimiliki si printer dan sudah terpasang ke
komputer.
Wassalam,
Kid.
2014-03-22 11:09 GMT+07:00 Bagus <bagus@kingjim.co.id>:
Pak Prazt;
Mungkin ini karena ukuran tsb tidak dikenali oleh default printer yang kita
gunakan.
coba pada dialog printer, pilih properties..
lihat pada paper sizenya..
apakah ada ukuran / tipe kertas yg kita gunakan tsb..?
ditempat saya ada 2 printer. (HP dan Xerox)
dua2nya tidak mengenal ukuran "xlPaperA4Small" dan
"xlPaperFanfoldLegalGerman"
setelah sekripnya saya ganti menjadi "xlPaperA4" dan "xlPaperFolio"
yang A4 dikenali dua2nya (bisa berjalan dikedua printer tsb) => tdk muncul
debug
Folio hanya dikenali oleh Xerox, sedangkan HP tidak mengenalinya.
jadi ketika saya set printer xerox sebagai default tidak muncul debug,
sedangkan ketika saya set defaultnya HP maka muncul debug.
Mungkin begitu..
Wassalam
~ Bagus ~
----- Original Message -----
From: prazt <mailto:praztmath@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Saturday, March 22, 2014 9:19 AM
Subject: RE: [belajar-excel] mengatur ukuran kertas dengan vba [1
Attachment]
Maap lampiran ketinggalan mr kid
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Mr. Kid
Sent: 21 Maret 2014 23:10
To: BeExcel
Subject: Re: [belajar-excel] mengatur ukuran kertas dengan vba
Wa'alaikumussalam Wr. Wb.
Coba :
Sheets("nama sheetnya").pagesetup.papersize=
isi_dengan_opsi_macam_kertas_yang_diawali_dengan_xl
bagian :
isi_dengan_opsi_macam_kertas_yang_diawali_dengan_xl
bisa dilihat daftarnya di :
http://msdn.microsoft.com/en-us/library/office/ff834612%28v=office.15%29.asp
x
Wassalamu'alaikum Wr. Wb.,
Kid.
2014-03-21 16:53 GMT+07:00 prazt <praztmath@gmail.com>:
Assalam...para exceller semua, mohon bantuan bagaimana scrib VBA untuk
mengatur ukuran kertas pada sheet yang sudah di set print area ? saya sudah
mencoba menggunakan record macro tapi masih bingung juga mana yang harus di
pakai dan mana yang harus di buang, misal saya ingin mengatur dengan ukuran
kertas Folio (21 cm x 33 cm). Ilustrasi seperti terlampir..
_____
Email ini bebas virus dan malware karena avast! Antivirus
<http://www.avast.com/> proteksi aktif.
_____
<http://www.avast.com/>
Email ini bebas virus dan malware karena avast! Antivirus
<http://www.avast.com/> proteksi aktif.
---
Email ini bebas dari virus dan malware karena Proteksi avast! Antivirus aktif.
http://www.avast.com
Sun Mar 23, 2014 9:08 pm (PDT) . Posted by:
"Jan Raisin"
Hai pak Prazt,
berdasarkan pengalaman Jan beberapa kali menjadi SPG di pameran komputer..
kecepatan cetak ditentukan oleh spesifikasi printernya..
biasanya dicantumkan dalam satuan PPM (Page per Minute) atau IPM (Image per
Minute)
Jadi masalahnya bukan pada scriptnya.
cmiiw,
-Miss Jan Raisin-
Pada 24 Maret 2014 09.37, prazt <praztmath@gmail.com> menulis:
>
>
> Saya udah coba dan hasil seperti terlampir, Cuma saya merasa loading
> masih agak lama, mohon bantuannya supaya jadi tidak terlalu lama Mr.Kin dan
> rekan-rekan yg lain.
>
>
>
>
>
berdasarkan pengalaman Jan beberapa kali menjadi SPG di pameran komputer..
kecepatan cetak ditentukan oleh spesifikasi printernya..
biasanya dicantumkan dalam satuan PPM (Page per Minute) atau IPM (Image per
Minute)
Jadi masalahnya bukan pada scriptnya.
cmiiw,
-Miss Jan Raisin-
Pada 24 Maret 2014 09.37, prazt <praztmath@gmail.com> menulis:
>
>
> Saya udah coba dan hasil seperti terlampir, Cuma saya merasa loading
> masih agak lama, mohon bantuannya supaya jadi tidak terlalu lama Mr.Kin dan
> rekan-rekan yg lain.
>
>
>
>
>
Sun Mar 23, 2014 9:30 pm (PDT) . Posted by:
"prazt" praztmath
Maaf mis Jan jika salah persepsi, yang saya maksud bukan kecepatan cetaknya,
tapi kecepatan loading macronya, jika saya ceklik untuk tombol yang F4
(folio) loading macronya agak lambat sedangkan jika saya ceklik pada tombol
yang A4 dengan scribd seperti yang tadi saya lampirkan kok cepat, nah
pertanyaan bagaimana supaya jika di ceklik tombol F4 (folio) loading
macronya tidak terlalu lama ya minimal secepat yang tombol A4
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Jan Raisin
Sent: 24 Maret 2014 11:08
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] mengatur ukuran kertas dengan vba
Hai pak Prazt,
berdasarkan pengalaman Jan beberapa kali menjadi SPG di pameran komputer..
kecepatan cetak ditentukan oleh spesifikasi printernya..
biasanya dicantumkan dalam satuan PPM (Page per Minute) atau IPM (Image per
Minute)
Jadi masalahnya bukan pada scriptnya.
cmiiw,
-Miss Jan Raisin-
Pada 24 Maret 2014 09.37, prazt <praztmath@gmail.com> menulis:
Saya udah coba dan hasil seperti terlampir, Cuma saya merasa loading masih
agak lama, mohon bantuannya supaya jadi tidak terlalu lama Mr.Kin dan
rekan-rekan yg lain.
---
Email ini bebas dari virus dan malware karena Proteksi avast! Antivirus aktif.
http://www.avast.com
tapi kecepatan loading macronya, jika saya ceklik untuk tombol yang F4
(folio) loading macronya agak lambat sedangkan jika saya ceklik pada tombol
yang A4 dengan scribd seperti yang tadi saya lampirkan kok cepat, nah
pertanyaan bagaimana supaya jika di ceklik tombol F4 (folio) loading
macronya tidak terlalu lama ya minimal secepat yang tombol A4
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Jan Raisin
Sent: 24 Maret 2014 11:08
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] mengatur ukuran kertas dengan vba
Hai pak Prazt,
berdasarkan pengalaman Jan beberapa kali menjadi SPG di pameran komputer..
kecepatan cetak ditentukan oleh spesifikasi printernya..
biasanya dicantumkan dalam satuan PPM (Page per Minute) atau IPM (Image per
Minute)
Jadi masalahnya bukan pada scriptnya.
cmiiw,
-Miss Jan Raisin-
Pada 24 Maret 2014 09.37, prazt <praztmath@gmail.com> menulis:
Saya udah coba dan hasil seperti terlampir, Cuma saya merasa loading masih
agak lama, mohon bantuannya supaya jadi tidak terlalu lama Mr.Kin dan
rekan-rekan yg lain.
---
Email ini bebas dari virus dan malware karena Proteksi avast! Antivirus aktif.
http://www.avast.com
Sun Mar 23, 2014 9:55 pm (PDT) . Posted by:
"Jan Raisin"
Oh.. begitu ya..
maaf Jan yang salah kalo gitu xixixixi ^_^
yuk kita bandingkan script antara cetak Folio dengan cetak A4
script untuk cetak Folio:
Sub Rectangle1_Click()
Worksheets("Sheet1").PageSetup.PrintArea = "$C$4:$I$322"
With Worksheets("Sheet1").PageSetup
.Orientation = xlPortrait
.PaperSize = 220
.FirstPageNumber = xlAutomatic
.Zoom = 100
.RightMargin = Application.InchesToPoints(0.2)
.LeftMargin = Application.InchesToPoints(0.6)
.TopMargin = Application.InchesToPoints(0.4)
.BottomMargin = Application.InchesToPoints(0.2)
End With
End Sub
script untuk cetak A4:
Sub Rectangle2_Click()
Worksheets("Sheet1").PageSetup.PrintArea = "$C$4:$H$22"
Worksheets("Sheet1").PageSetup.PaperSize = xlPaperA4
End Sub
setiap 1 buah titik mewakili 1 buah tugas yang harus dikerjakan oleh Excel
pada script yang untuk cetak A4 hanya ada 4 buah titik yang berarti ada 4
buah tugas yang dikerjakan oleh Excel, yaitu:
1. masuk ke page setup
2. atur print area mulai cel C4 sampai H22
3. masuk ke page setup
4. pilih ukuran kertas menjadi A4
sekarang bandingkan dengan script yang folio.. kelihatan kan yang
menyebabkan perbedaan
berikutnya adalah luas area yang mau dicetak,
Awal | Akhir
A4 : C4 | H22
Folio : C4 | I322
posisi cel awal sama.. tetapi posisi Cel ahirnya berbeda, yang satu di
kolom H sedangkan yang satunya lagi di kolom I
yang satu cuma sampai baris 22 (puluhan), sedangkan yang satunya lagi
sampai baris 322 (ratusan)
kira-kira begitu kali ya.. [?][?][?]
Wassalam,
-Miss Jan Raisin-
Pada 24 Maret 2014 11.29, prazt <praztmath@gmail.com> menulis:
>
>
> Maaf mis Jan jika salah persepsi, yang saya maksud bukan kecepatan
> cetaknya, tapi kecepatan loading macronya, jika saya ceklik untuk tombol
> yang F4 (folio) loading macronya agak lambat sedangkan jika saya ceklik
> pada tombol yang A4 dengan scribd seperti yang tadi saya lampirkan kok
> cepat, nah pertanyaan bagaimana supaya jika di ceklik tombol F4 (folio)
> loading macronya tidak terlalu lama ya minimal secepat yang tombol A4
>
>
>
maaf Jan yang salah kalo gitu xixixixi ^_^
yuk kita bandingkan script antara cetak Folio dengan cetak A4
script untuk cetak Folio:
Sub Rectangle1_Click()
Worksheets("Sheet1").PageSetup.PrintArea = "$C$4:$I$322"
With Worksheets("Sheet1").PageSetup
.Orientation = xlPortrait
.PaperSize = 220
.FirstPageNumber = xlAutomatic
.Zoom = 100
.RightMargin = Application.InchesToPoints(0.2)
.LeftMargin = Application.InchesToPoints(0.6)
.TopMargin = Application.InchesToPoints(0.4)
.BottomMargin = Application.InchesToPoints(0.2)
End With
End Sub
script untuk cetak A4:
Sub Rectangle2_Click()
Worksheets("Sheet1").PageSetup.PrintArea = "$C$4:$H$22"
Worksheets("Sheet1").PageSetup.PaperSize = xlPaperA4
End Sub
setiap 1 buah titik mewakili 1 buah tugas yang harus dikerjakan oleh Excel
pada script yang untuk cetak A4 hanya ada 4 buah titik yang berarti ada 4
buah tugas yang dikerjakan oleh Excel, yaitu:
1. masuk ke page setup
2. atur print area mulai cel C4 sampai H22
3. masuk ke page setup
4. pilih ukuran kertas menjadi A4
sekarang bandingkan dengan script yang folio.. kelihatan kan yang
menyebabkan perbedaan
berikutnya adalah luas area yang mau dicetak,
Awal | Akhir
A4 : C4 | H22
Folio : C4 | I322
posisi cel awal sama.. tetapi posisi Cel ahirnya berbeda, yang satu di
kolom H sedangkan yang satunya lagi di kolom I
yang satu cuma sampai baris 22 (puluhan), sedangkan yang satunya lagi
sampai baris 322 (ratusan)
kira-kira begitu kali ya.. [?][?][?]
Wassalam,
-Miss Jan Raisin-
Pada 24 Maret 2014 11.29, prazt <praztmath@gmail.com> menulis:
>
>
> Maaf mis Jan jika salah persepsi, yang saya maksud bukan kecepatan
> cetaknya, tapi kecepatan loading macronya, jika saya ceklik untuk tombol
> yang F4 (folio) loading macronya agak lambat sedangkan jika saya ceklik
> pada tombol yang A4 dengan scribd seperti yang tadi saya lampirkan kok
> cepat, nah pertanyaan bagaimana supaya jika di ceklik tombol F4 (folio)
> loading macronya tidak terlalu lama ya minimal secepat yang tombol A4
>
>
>
Sun Mar 23, 2014 10:19 pm (PDT) . Posted by:
"prazt" praztmath
Tapi untuk yg A4 scriptnya ane ganti sbb:
script untuk cetak A4:
Sub Rectangle1_Click()
Worksheets("Sheet1").PageSetup.PrintArea = "$C$4:$I$322"
With Worksheets("Sheet1").PageSetup
.Orientation = xlPortrait
.PaperSize = xlPaperA4 'saya ganti disini
.FirstPageNumber = xlAutomatic
.Zoom = 100
.RightMargin = Application.InchesToPoints(0.2)
.LeftMargin = Application.InchesToPoints(0.6)
.TopMargin = Application.InchesToPoints(0.4)
.BottomMargin = Application.InchesToPoints(0.2)
End With
End Sub
Kecepatan loadingnya tidak selama yg Folio mis Jan, gmn itu hehehehe
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Jan Raisin
Sent: 24 Maret 2014 11:55
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] mengatur ukuran kertas dengan vba
Oh.. begitu ya..
maaf Jan yang salah kalo gitu xixixixi ^_^
yuk kita bandingkan script antara cetak Folio dengan cetak A4
script untuk cetak Folio:
Sub Rectangle1_Click()
Worksheets("Sheet1").PageSetup.PrintArea = "$C$4:$I$322"
With Worksheets("Sheet1").PageSetup
.Orientation = xlPortrait
.PaperSize = 220
.FirstPageNumber = xlAutomatic
.Zoom = 100
.RightMargin = Application.InchesToPoints(0.2)
.LeftMargin = Application.InchesToPoints(0.6)
.TopMargin = Application.InchesToPoints(0.4)
.BottomMargin = Application.InchesToPoints(0.2)
End With
End Sub
script untuk cetak A4:
Sub Rectangle2_Click()
Worksheets("Sheet1").PageSetup.PrintArea = "$C$4:$H$22"
Worksheets("Sheet1").PageSetup.PaperSize = xlPaperA4
End Sub
setiap 1 buah titik mewakili 1 buah tugas yang harus dikerjakan oleh Excel
pada script yang untuk cetak A4 hanya ada 4 buah titik yang berarti ada 4
buah tugas yang dikerjakan oleh Excel, yaitu:
1. masuk ke page setup
2. atur print area mulai cel C4 sampai H22
3. masuk ke page setup
4. pilih ukuran kertas menjadi A4
sekarang bandingkan dengan script yang folio.. kelihatan kan yang
menyebabkan perbedaan
berikutnya adalah luas area yang mau dicetak,
Awal | Akhir
A4 : C4 | H22
Folio : C4 | I322
posisi cel awal sama.. tetapi posisi Cel ahirnya berbeda, yang satu di kolom
H sedangkan yang satunya lagi di kolom I
yang satu cuma sampai baris 22 (puluhan), sedangkan yang satunya lagi sampai
baris 322 (ratusan)
kira-kira begitu kali ya..
Wassalam,
-Miss Jan Raisin-
Pada 24 Maret 2014 11.29, prazt <praztmath@gmail.com> menulis:
Maaf mis Jan jika salah persepsi, yang saya maksud bukan kecepatan cetaknya,
tapi kecepatan loading macronya, jika saya ceklik untuk tombol yang F4
(folio) loading macronya agak lambat sedangkan jika saya ceklik pada tombol
yang A4 dengan scribd seperti yang tadi saya lampirkan kok cepat, nah
pertanyaan bagaimana supaya jika di ceklik tombol F4 (folio) loading
macronya tidak terlalu lama ya minimal secepat yang tombol A4
---
Email ini bebas dari virus dan malware karena Proteksi avast! Antivirus aktif.
http://www.avast.com
script untuk cetak A4:
Sub Rectangle1_Click()
Worksheets("Sheet1").PageSetup.PrintArea = "$C$4:$I$322"
With Worksheets("Sheet1").PageSetup
.Orientation = xlPortrait
.PaperSize = xlPaperA4 'saya ganti disini
.FirstPageNumber = xlAutomatic
.Zoom = 100
.RightMargin = Application.InchesToPoints(0.2)
.LeftMargin = Application.InchesToPoints(0.6)
.TopMargin = Application.InchesToPoints(0.4)
.BottomMargin = Application.InchesToPoints(0.2)
End With
End Sub
Kecepatan loadingnya tidak selama yg Folio mis Jan, gmn itu hehehehe
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Jan Raisin
Sent: 24 Maret 2014 11:55
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] mengatur ukuran kertas dengan vba
Oh.. begitu ya..
maaf Jan yang salah kalo gitu xixixixi ^_^
yuk kita bandingkan script antara cetak Folio dengan cetak A4
script untuk cetak Folio:
Sub Rectangle1_Click()
Worksheets("Sheet1").PageSetup.PrintArea = "$C$4:$I$322"
With Worksheets("Sheet1").PageSetup
.Orientation = xlPortrait
.PaperSize = 220
.FirstPageNumber = xlAutomatic
.Zoom = 100
.RightMargin = Application.InchesToPoints(0.2)
.LeftMargin = Application.InchesToPoints(0.6)
.TopMargin = Application.InchesToPoints(0.4)
.BottomMargin = Application.InchesToPoints(0.2)
End With
End Sub
script untuk cetak A4:
Sub Rectangle2_Click()
Worksheets("Sheet1").PageSetup.PrintArea = "$C$4:$H$22"
Worksheets("Sheet1").PageSetup.PaperSize = xlPaperA4
End Sub
setiap 1 buah titik mewakili 1 buah tugas yang harus dikerjakan oleh Excel
pada script yang untuk cetak A4 hanya ada 4 buah titik yang berarti ada 4
buah tugas yang dikerjakan oleh Excel, yaitu:
1. masuk ke page setup
2. atur print area mulai cel C4 sampai H22
3. masuk ke page setup
4. pilih ukuran kertas menjadi A4
sekarang bandingkan dengan script yang folio.. kelihatan kan yang
menyebabkan perbedaan
berikutnya adalah luas area yang mau dicetak,
Awal | Akhir
A4 : C4 | H22
Folio : C4 | I322
posisi cel awal sama.. tetapi posisi Cel ahirnya berbeda, yang satu di kolom
H sedangkan yang satunya lagi di kolom I
yang satu cuma sampai baris 22 (puluhan), sedangkan yang satunya lagi sampai
baris 322 (ratusan)
kira-kira begitu kali ya..
Wassalam,
-Miss Jan Raisin-
Pada 24 Maret 2014 11.29, prazt <praztmath@gmail.com> menulis:
Maaf mis Jan jika salah persepsi, yang saya maksud bukan kecepatan cetaknya,
tapi kecepatan loading macronya, jika saya ceklik untuk tombol yang F4
(folio) loading macronya agak lambat sedangkan jika saya ceklik pada tombol
yang A4 dengan scribd seperti yang tadi saya lampirkan kok cepat, nah
pertanyaan bagaimana supaya jika di ceklik tombol F4 (folio) loading
macronya tidak terlalu lama ya minimal secepat yang tombol A4
---
Email ini bebas dari virus dan malware karena Proteksi avast! Antivirus aktif.
http://www.avast.com
Sun Mar 23, 2014 10:58 pm (PDT) . Posted by:
"Aliif Akbar" aliif.akbar
Terimakasih mas dwint,
Saya coba dulu,
Semoga bisa,...
Terimakasih.
Aliif Akbar
Sent from Yahoo Mail on Android
Saya coba dulu,
Semoga bisa,...
Terimakasih.
Aliif Akbar
Sent from Yahoo Mail on Android
Sun Mar 23, 2014 11:08 pm (PDT) . Posted by:
"Jan Raisin"
gitu ya.?
coba nunggu masukkan BeExceller yang lain dulu ya..
Jan gak punya printer buat ngetes kecepatannya sih.. xixixix ^_^
kasian banget kan.. [?][?][?] (emot gmail kenapa gak ada yang kayak Line ya?)
Wassalam,
-Miss Jan Raisin-
Pada 24 Maret 2014 12.18, prazt <praztmath@gmail.com> menulis:
>
>
> Tapi untuk yg A4 scriptnya ane ganti sbb:
>
> script untuk cetak A4:
>
> Sub Rectangle1_Click()
>
> Worksheets("Sheet1").PageSetup.PrintArea = "$C$4:$I$322"
>
> With Worksheets("Sheet1").PageSetup
>
> .Orientation = xlPortrait
>
> .PaperSize = xlPaperA4 'saya ganti disini
>
> .FirstPageNumber = xlAutomatic
>
> .Zoom = 100
>
> .RightMargin = Application.InchesToPoints(0.2)
>
> .LeftMargin = Application.InchesToPoints(0.6)
>
> .TopMargin = Application.InchesToPoints(0.4)
>
> .BottomMargin = Application.InchesToPoints(0.2)
>
> End With
>
> End Sub
>
>
>
> Kecepatan loadingnya tidak selama yg Folio mis Jan, gmn itu hehehehe
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *Jan Raisin
> *Sent:* 24 Maret 2014 11:55
>
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: [belajar-excel] mengatur ukuran kertas dengan vba
>
>
>
>
>
> Oh.. begitu ya..
>
>
>
> maaf Jan yang salah kalo gitu xixixixi ^_^
>
> yuk kita bandingkan script antara cetak Folio dengan cetak A4
>
>
>
> script untuk cetak Folio:
>
> Sub Rectangle1_Click()
>
> Worksheets("Sheet1").PageSetup.PrintArea = "$C$4:$I$322"
>
> With Worksheets("Sheet1").PageSetup
>
> .Orientation = xlPortrait
>
> .PaperSize = 220
>
> .FirstPageNumber = xlAutomatic
>
> .Zoom = 100
>
> .RightMargin = Application.InchesToPoints(0.2)
>
> .LeftMargin = Application.InchesToPoints(0.6)
>
> .TopMargin = Application.InchesToPoints(0.4)
>
> .BottomMargin = Application.InchesToPoints(0.2)
>
> End With
>
> End Sub
>
>
>
> script untuk cetak A4:
>
> Sub Rectangle2_Click()
>
> Worksheets("Sheet1").PageSetup.PrintArea = "$C$4:$H$22"
>
> Worksheets("Sheet1").PageSetup.PaperSize = xlPaperA4
>
> End Sub
>
>
>
> setiap 1 buah titik mewakili 1 buah tugas yang harus dikerjakan oleh Excel
>
> pada script yang untuk cetak A4 hanya ada 4 buah titik yang berarti ada 4
> buah tugas yang dikerjakan oleh Excel, yaitu:
>
> 1. masuk ke page setup
>
> 2. atur print area mulai cel C4 sampai H22
>
> 3. masuk ke page setup
>
> 4. pilih ukuran kertas menjadi A4
>
>
>
> sekarang bandingkan dengan script yang folio.. kelihatan kan yang
> menyebabkan perbedaan
>
>
>
> berikutnya adalah luas area yang mau dicetak,
>
> Awal | Akhir
>
> A4 : C4 | H22
>
> Folio : C4 | I322
>
>
>
> posisi cel awal sama.. tetapi posisi Cel ahirnya berbeda, yang satu di
> kolom H sedangkan yang satunya lagi di kolom I
>
> yang satu cuma sampai baris 22 (puluhan), sedangkan yang satunya lagi
> sampai baris 322 (ratusan)
>
>
>
> kira-kira begitu kali ya..
>
>
>
> Wassalam,
>
>
>
> -Miss Jan Raisin-
>
>
>
> Pada 24 Maret 2014 11.29, prazt <praztmath@gmail.com> menulis:
>
>
>
> Maaf mis Jan jika salah persepsi, yang saya maksud bukan kecepatan
> cetaknya, tapi kecepatan loading macronya, jika saya ceklik untuk tombol
> yang F4 (folio) loading macronya agak lambat sedangkan jika saya ceklik
> pada tombol yang A4 dengan scribd seperti yang tadi saya lampirkan kok
> cepat, nah pertanyaan bagaimana supaya jika di ceklik tombol F4 (folio)
> loading macronya tidak terlalu lama ya minimal secepat yang tombol A4
>
>
>
>
>
> ------------------------------
> <http://www.avast.com/>
>
> Email ini bebas virus dan malware karena avast! Antivirus<http://www.avast.com/>proteksi aktif.
>
>
>
coba nunggu masukkan BeExceller yang lain dulu ya..
Jan gak punya printer buat ngetes kecepatannya sih.. xixixix ^_^
kasian banget kan.. [?][?][?] (emot gmail kenapa gak ada yang kayak Line ya?)
Wassalam,
-Miss Jan Raisin-
Pada 24 Maret 2014 12.18, prazt <praztmath@gmail.com> menulis:
>
>
> Tapi untuk yg A4 scriptnya ane ganti sbb:
>
> script untuk cetak A4:
>
> Sub Rectangle1_Click()
>
> Worksheets("Sheet1").PageSetup.PrintArea = "$C$4:$I$322"
>
> With Worksheets("Sheet1").PageSetup
>
> .Orientation = xlPortrait
>
> .PaperSize = xlPaperA4 'saya ganti disini
>
> .FirstPageNumber = xlAutomatic
>
> .Zoom = 100
>
> .RightMargin = Application.InchesToPoints(0.2)
>
> .LeftMargin = Application.InchesToPoints(0.6)
>
> .TopMargin = Application.InchesToPoints(0.4)
>
> .BottomMargin = Application.InchesToPoints(0.2)
>
> End With
>
> End Sub
>
>
>
> Kecepatan loadingnya tidak selama yg Folio mis Jan, gmn itu hehehehe
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *Jan Raisin
> *Sent:* 24 Maret 2014 11:55
>
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: [belajar-excel] mengatur ukuran kertas dengan vba
>
>
>
>
>
> Oh.. begitu ya..
>
>
>
> maaf Jan yang salah kalo gitu xixixixi ^_^
>
> yuk kita bandingkan script antara cetak Folio dengan cetak A4
>
>
>
> script untuk cetak Folio:
>
> Sub Rectangle1_Click()
>
> Worksheets("Sheet1").PageSetup.PrintArea = "$C$4:$I$322"
>
> With Worksheets("Sheet1").PageSetup
>
> .Orientation = xlPortrait
>
> .PaperSize = 220
>
> .FirstPageNumber = xlAutomatic
>
> .Zoom = 100
>
> .RightMargin = Application.InchesToPoints(0.2)
>
> .LeftMargin = Application.InchesToPoints(0.6)
>
> .TopMargin = Application.InchesToPoints(0.4)
>
> .BottomMargin = Application.InchesToPoints(0.2)
>
> End With
>
> End Sub
>
>
>
> script untuk cetak A4:
>
> Sub Rectangle2_Click()
>
> Worksheets("Sheet1").PageSetup.PrintArea = "$C$4:$H$22"
>
> Worksheets("Sheet1").PageSetup.PaperSize = xlPaperA4
>
> End Sub
>
>
>
> setiap 1 buah titik mewakili 1 buah tugas yang harus dikerjakan oleh Excel
>
> pada script yang untuk cetak A4 hanya ada 4 buah titik yang berarti ada 4
> buah tugas yang dikerjakan oleh Excel, yaitu:
>
> 1. masuk ke page setup
>
> 2. atur print area mulai cel C4 sampai H22
>
> 3. masuk ke page setup
>
> 4. pilih ukuran kertas menjadi A4
>
>
>
> sekarang bandingkan dengan script yang folio.. kelihatan kan yang
> menyebabkan perbedaan
>
>
>
> berikutnya adalah luas area yang mau dicetak,
>
> Awal | Akhir
>
> A4 : C4 | H22
>
> Folio : C4 | I322
>
>
>
> posisi cel awal sama.. tetapi posisi Cel ahirnya berbeda, yang satu di
> kolom H sedangkan yang satunya lagi di kolom I
>
> yang satu cuma sampai baris 22 (puluhan), sedangkan yang satunya lagi
> sampai baris 322 (ratusan)
>
>
>
> kira-kira begitu kali ya..
>
>
>
> Wassalam,
>
>
>
> -Miss Jan Raisin-
>
>
>
> Pada 24 Maret 2014 11.29, prazt <praztmath@gmail.com> menulis:
>
>
>
> Maaf mis Jan jika salah persepsi, yang saya maksud bukan kecepatan
> cetaknya, tapi kecepatan loading macronya, jika saya ceklik untuk tombol
> yang F4 (folio) loading macronya agak lambat sedangkan jika saya ceklik
> pada tombol yang A4 dengan scribd seperti yang tadi saya lampirkan kok
> cepat, nah pertanyaan bagaimana supaya jika di ceklik tombol F4 (folio)
> loading macronya tidak terlalu lama ya minimal secepat yang tombol A4
>
>
>
>
>
> ------------------------------
> <http://www.avast.com/>
>
> Email ini bebas virus dan malware karena avast! Antivirus<http://www.avast.com/>proteksi aktif.
>
>
>
Sun Mar 23, 2014 8:44 pm (PDT) . Posted by:
"Emi" emilestariklcc
Guru dan teman BeExcel,
Makro di bawah adalah dari Mr Kid.
Untuk mencetak satu halaman ke satu halaman.
Bagaimana caranya kalau saya mau mencetak sekali gus tanpa perlu ditanya mau dicetak next page atau tidak.
File excelnya dilampirkan.
Terima kasih.
Emi Lestari
--------
Public Sub Unclaimed()
Dim lPage As Long
If Range("o2").Value > 0 Then
Range("o3").Value = 1
For lPage = 1 To Range("o2").Value
ActiveSheet.Calculate
Range("a1:j69").PrintOut '
Range("o3").Value = lPage
If MsgBox("Page : " & lPage + 1 & vbCrLf & "Print ?", vbYesNo + vbQuestion, "Cetak") = vbNo Then
Exit For
End If
Next lPage
End If
End Sub
Makro di bawah adalah dari Mr Kid.
Untuk mencetak satu halaman ke satu halaman.
Bagaimana caranya kalau saya mau mencetak sekali gus tanpa perlu ditanya mau dicetak next page atau tidak.
File excelnya dilampirkan.
Terima kasih.
Emi Lestari
--------
Public Sub Unclaimed()
Dim lPage As Long
If Range("
Range("
For lPage = 1 To Range("
ActiveSheet.
Range("
Range("
If MsgBox("
Exit For
End If
Next lPage
End If
End Sub
Sun Mar 23, 2014 8:50 pm (PDT) . Posted by:
"Jan Raisin"
Hai Emi,
coba hapus blok If MsgBox bla bla bla..
Wassalam,
-Miss Jan Raisin-
Pada 24 Maret 2014 10.03, Emi <emilestariklcc@yahoo.com> menulis:
>
>
> Guru dan teman BeExcel,
>
> Makro di bawah adalah dari Mr Kid.
> Untuk mencetak satu halaman ke satu halaman.
> Bagaimana caranya kalau saya mau mencetak sekali gus tanpa perlu ditanya
> mau dicetak next page atau tidak.
>
> File excelnya dilampirkan.
>
>
>
> Terima kasih.
>
> Emi Lestari
>
> --------
> Public Sub Unclaimed()
> Dim lPage As Long
> If Range("o2").Value > 0 Then
> Range("o3").Value = 1
> For lPage = 1 To Range("o2").Value
> ActiveSheet.Calculate
> Range("a1:j69").PrintOut '
> Range("o3").Value = lPage
> If MsgBox("Page : " & lPage + 1 & vbCrLf & "Print ?", vbYesNo
> + vbQuestion, "Cetak") = vbNo Then
> Exit For
> End If
> Next lPage
> End If
> End Sub
>
>
>
coba hapus blok If MsgBox bla bla bla..
Wassalam,
-Miss Jan Raisin-
Pada 24 Maret 2014 10.03, Emi <emilestariklcc@yahoo.com> menulis:
>
>
> Guru dan teman BeExcel,
>
> Makro di bawah adalah dari Mr Kid.
> Untuk mencetak satu halaman ke satu halaman.
> Bagaimana caranya kalau saya mau mencetak sekali gus tanpa perlu ditanya
> mau dicetak next page atau tidak.
>
> File excelnya dilampirkan.
>
>
>
> Terima kasih.
>
> Emi Lestari
>
> --------
> Public Sub Unclaimed()
> Dim lPage As Long
> If Range("
> Range("
> For lPage = 1 To Range("
> ActiveSheet.
> Range("
> Range("
> If MsgBox("
> + vbQuestion, "Cetak"
> Exit For
> End If
> Next lPage
> End If
> End Sub
>
>
>
Sun Mar 23, 2014 9:11 pm (PDT) . Posted by:
"Emi" emilestariklcc
Miss Jan,
Saya udah hapus bagian itu
Public Sub Unclaimed()
Dim lPage As Long
If Range("o2").Value > 0 Then
Range("o3").Value = 1
For lPage = 1 To Range("o2").Value
ActiveSheet.Calculate
Range("a1:j69").PrintOut '
Range("o3").Value = lPage + 1
'If MsgBox("Page : " & lPage + 1 & vbCrLf & "Print ?", vbYesNo + vbQuestion, "Cetak") = vbNo Then
Exit For
'End If
Next lPage
End If
End Sub
Hasilnya cuma print satu halaman sahaja.
Yang saya inginkan ialah setelah halaman pertama habis diprint akan diikuti dgn data untuk halaman kedua dan seterusnya.
Data untuk satu fomulir itu hanya bisa diisi 22 rekod sahaja. Setelah habis 22, rekor ke 23 s/d 44 ada di print sebagai halaman kedua dan seterusnya.
Mohon bantuan lagi dari Miss Jan.
Terima kasih.
-Emi
On Monday, March 24, 2014 11:50 AM, Jan Raisin <miss.jan.raisin@gmail.com> wrote:
Hai Emi,
coba hapus blok If MsgBox bla bla bla..
Wassalam,
-Miss Jan Raisin-
Pada 24 Maret 2014 10.03, Emi <emilestariklcc@yahoo.com> menulis:
>
>Guru dan teman BeExcel,
>
>
>Makro di bawah adalah dari Mr Kid.
>Untuk mencetak satu halaman ke satu halaman.
>
>Bagaimana caranya kalau saya mau mencetak sekali gus tanpa perlu ditanya mau dicetak next page atau tidak.
>
>
>
>File excelnya dilampirkan.
>
>
>
>
>
>
>Terima kasih.
>
>
>Emi Lestari
>
>
>
>--------
>
>Public Sub Unclaimed()
> Dim lPage As Long
> If Range("o2").Value > 0 Then
> Range("o3").Value = 1
> For lPage = 1 To Range("o2").Value
> ActiveSheet.Calculate
> Range("a1:j69").PrintOut '
> Range("o3").Value = lPage
>
If MsgBox("Page : " & lPage + 1 & vbCrLf & "Print ?", vbYesNo + vbQuestion, "Cetak") = vbNo Then
> Exit For
> End If
> Next lPage
> End If
>End Sub
>
>
Saya udah hapus bagian itu
Public Sub Unclaimed()
Dim lPage As Long
If Range("o2").Value > 0 Then
Range("o3").Value = 1
For lPage = 1 To Range("o2").Value
ActiveSheet.Calculate
Range("a1:j69").PrintOut '
Range("o3").Value = lPage + 1
'If MsgBox("Page : " & lPage + 1 & vbCrLf & "Print ?", vbYesNo + vbQuestion, "Cetak") = vbNo Then
Exit For
'End If
Next lPage
End If
End Sub
Hasilnya cuma print satu halaman sahaja.
Yang saya inginkan ialah setelah halaman pertama habis diprint akan diikuti dgn data untuk halaman kedua dan seterusnya.
Data untuk satu fomulir itu hanya bisa diisi 22 rekod sahaja. Setelah habis 22, rekor ke 23 s/d 44 ada di print sebagai halaman kedua dan seterusnya.
Mohon bantuan lagi dari Miss Jan.
Terima kasih.
-Emi
On Monday, March 24, 2014 11:50 AM, Jan Raisin <miss.jan.raisin@gmail.com> wrote:
Hai Emi,
coba hapus blok If MsgBox bla bla bla..
Wassalam,
-Miss Jan Raisin-
Pada 24 Maret 2014 10.03, Emi <emilestariklcc@yahoo.com> menulis:
>
>Guru dan teman BeExcel,
>
>
>Makro di bawah adalah dari Mr Kid.
>Untuk mencetak satu halaman ke satu halaman.
>
>Bagaimana caranya kalau saya mau mencetak sekali gus tanpa perlu ditanya mau dicetak next page atau tidak.
>
>
>
>File excelnya dilampirkan.
>
>
>
>
>
>
>Terima kasih.
>
>
>Emi Lestari
>
>
>
>--------
>
>Public Sub Unclaimed()
> Dim lPage As Long
> If Range("
> Range("
> For lPage = 1 To Range("
> ActiveSheet.
> Range("
> Range("
>
If MsgBox("
> Exit For
> End If
> Next lPage
> End If
>End Sub
>
>
Sun Mar 23, 2014 9:19 pm (PDT) . Posted by:
"Jan Raisin"
Hai Emi,
Blok If itu dimulai dari script yang berbunyi
If bla bla bla
dan diakhiri sampai script yang berbunyi
End If
Jika diantara kedua baris tersebut ada script lain yang berbunyi
Jan.Explain = False
dan script yang lainnya.. maka script itu pun masih masuk ke dalam blok If
tersebut, jadi yang dihapus adalah mulai baris pertama sampai baris
terakhir.
Wassalam,
-Miss Jan Raisin-
Pada 24 Maret 2014 11.07, Emi <emilestariklcc@yahoo.com> menulis:
>
>
> Miss Jan,
>
> Saya udah hapus bagian itu
>
>
>
> Public Sub Unclaimed()
> Dim lPage As Long
> If Range("o2").Value > 0 Then
> Range("o3").Value = 1
> For lPage = 1 To Range("o2").Value
> ActiveSheet.Calculate
> Range("a1:j69").PrintOut '
> Range("o3").Value = lPage + 1
> 'If MsgBox("Page : " & lPage + 1 & vbCrLf & "Print ?",
> vbYesNo + vbQuestion, "Cetak") = vbNo Then
>
> Exit For
> 'End If
> Next lPage
> End If
> End Sub
>
> Hasilnya cuma print satu halaman sahaja.
>
> Yang saya inginkan ialah setelah halaman pertama habis diprint akan
> diikuti dgn data untuk halaman kedua dan seterusnya.
> Data untuk satu fomulir itu hanya bisa diisi 22 rekod sahaja. Setelah
> habis 22, rekor ke 23 s/d 44 ada di print sebagai halaman kedua dan
> seterusnya.
>
> Mohon bantuan lagi dari Miss Jan.
>
> Terima kasih.
> -Emi
>
>
>
>
>
>
> On Monday, March 24, 2014 11:50 AM, Jan Raisin <
> miss.jan.raisin@gmail.com> wrote:
>
> Hai Emi,
>
> coba hapus blok If MsgBox bla bla bla..
>
> Wassalam,
>
> -Miss Jan Raisin-
>
>
> Pada 24 Maret 2014 10.03, Emi <emilestariklcc@yahoo.com> menulis:
>
>
> Guru dan teman BeExcel,
>
> Makro di bawah adalah dari Mr Kid.
> Untuk mencetak satu halaman ke satu halaman.
> Bagaimana caranya kalau saya mau mencetak sekali gus tanpa perlu ditanya
> mau dicetak next page atau tidak.
>
> File excelnya dilampirkan.
>
>
>
> Terima kasih.
>
> Emi Lestari
>
> --------
> Public Sub Unclaimed()
> Dim lPage As Long
> If Range("o2").Value > 0 Then
> Range("o3").Value = 1
> For lPage = 1 To Range("o2").Value
> ActiveSheet.Calculate
> Range("a1:j69").PrintOut '
> Range("o3").Value = lPage
> If MsgBox("Page : " & lPage + 1 & vbCrLf & "Print ?", vbYesNo
> + vbQuestion, "Cetak") = vbNo Then
> Exit For
> End If
> Next lPage
> End If
> End Sub
>
>
Blok If itu dimulai dari script yang berbunyi
If bla bla bla
dan diakhiri sampai script yang berbunyi
End If
Jika diantara kedua baris tersebut ada script lain yang berbunyi
Jan.Explain = False
dan script yang lainnya.. maka script itu pun masih masuk ke dalam blok If
tersebut, jadi yang dihapus adalah mulai baris pertama sampai baris
terakhir.
Wassalam,
-Miss Jan Raisin-
Pada 24 Maret 2014 11.07, Emi <emilestariklcc@yahoo.com> menulis:
>
>
> Miss Jan,
>
> Saya udah hapus bagian itu
>
>
>
> Public Sub Unclaimed()
> Dim lPage As Long
> If Range("o2").Value > 0 Then
> Range("o3").Value = 1
> For lPage = 1 To Range("o2").Value
> ActiveSheet.Calculate
> Range("a1:j69").PrintOut '
> Range("o3").Value = lPage + 1
> 'If MsgBox("Page : " & lPage + 1 & vbCrLf & "Print ?",
> vbYesNo + vbQuestion, "Cetak") = vbNo Then
>
> Exit For
> 'End If
> Next lPage
> End If
> End Sub
>
> Hasilnya cuma print satu halaman sahaja.
>
> Yang saya inginkan ialah setelah halaman pertama habis diprint akan
> diikuti dgn data untuk halaman kedua dan seterusnya.
> Data untuk satu fomulir itu hanya bisa diisi 22 rekod sahaja. Setelah
> habis 22, rekor ke 23 s/d 44 ada di print sebagai halaman kedua dan
> seterusnya.
>
> Mohon bantuan lagi dari Miss Jan.
>
> Terima kasih.
> -Emi
>
>
>
>
>
>
> On Monday, March 24, 2014 11:50 AM, Jan Raisin <
> miss.jan.raisin@gmail.com> wrote:
>
> Hai Emi,
>
> coba hapus blok If MsgBox bla bla bla..
>
> Wassalam,
>
> -Miss Jan Raisin-
>
>
> Pada 24 Maret 2014 10.03, Emi <emilestariklcc@yahoo.com> menulis:
>
>
> Guru dan teman BeExcel,
>
> Makro di bawah adalah dari Mr Kid.
> Untuk mencetak satu halaman ke satu halaman.
> Bagaimana caranya kalau saya mau mencetak sekali gus tanpa perlu ditanya
> mau dicetak next page atau tidak.
>
> File excelnya dilampirkan.
>
>
>
> Terima kasih.
>
> Emi Lestari
>
> --------
> Public Sub Unclaimed()
> Dim lPage As Long
> If Range("
> Range("
> For lPage = 1 To Range("
> ActiveSheet.
> Range("
> Range("
> If MsgBox("
> + vbQuestion, "Cetak"
> Exit For
> End If
> Next lPage
> End If
> End Sub
>
>
Sun Mar 23, 2014 9:30 pm (PDT) . Posted by:
"Emi" emilestariklcc
Terima kasih Miss Jan, sudah berhasil.
-Emi
On Monday, March 24, 2014 12:19 PM, Jan Raisin <miss.jan.raisin@gmail.com> wrote:
Hai Emi,
Blok If itu dimulai dari script yang berbunyi
If bla bla bla
dan diakhiri sampai script yang berbunyi
End If
Jika diantara kedua baris tersebut ada script lain yang berbunyi
Jan.Explain = False
dan script yang lainnya.. maka script itu pun masih masuk ke dalam blok If tersebut, jadi yang dihapus adalah mulai baris pertama sampai baris terakhir.
Wassalam,
-Miss Jan Raisin-
Pada 24 Maret 2014 11.07, Emi <emilestariklcc@yahoo.com> menulis:
>
>Miss Jan,
>
>Saya udah hapus bagian itu
>
>
>
>Public Sub Unclaimed()
> Dim lPage As Long
> If Range("o2").Value > 0 Then
> Range("o3").Value = 1
> For lPage = 1 To Range("o2").Value
> ActiveSheet.Calculate
> Range("a1:j69").PrintOut '
> Range("o3").Value = lPage + 1
> 'If MsgBox("Page : " & lPage + 1 & vbCrLf & "Print ?", vbYesNo + vbQuestion, "Cetak") = vbNo Then
>
> Exit For
> 'End If
> Next lPage
> End If
>End Sub
>
>Hasilnya cuma print satu halaman sahaja.
>
>Yang saya inginkan ialah setelah halaman pertama habis diprint akan diikuti dgn data untuk halaman kedua dan seterusnya.
>Data untuk satu fomulir itu hanya bisa diisi 22 rekod sahaja. Setelah habis 22, rekor ke 23 s/d 44 ada di print sebagai halaman kedua dan seterusnya.
>
>Mohon bantuan lagi dari Miss Jan.
>
>Terima kasih.
>-Emi
>
>
>
>
>
>
>
>
>
>On Monday, March 24, 2014 11:50 AM, Jan Raisin <miss.jan.raisin@gmail.com> wrote:
>
>
>Hai Emi,
>
>
>coba hapus blok If MsgBox bla bla bla..
>
>
>Wassalam,
>
>
>-Miss Jan Raisin-
>
>
>
>Pada 24 Maret 2014 10.03, Emi <emilestariklcc@yahoo.com> menulis:
>
>
>>
>>Guru dan teman BeExcel,
>>
>>
>>Makro di bawah adalah dari Mr Kid.
>>Untuk mencetak satu halaman ke satu halaman.
>>
>>Bagaimana caranya kalau saya mau mencetak sekali gus tanpa perlu ditanya mau dicetak next page atau tidak.
>>
>>
>>
>>File excelnya dilampirkan.
>>
>>
>>
>>
>>
>>
>>Terima kasih.
>>
>>
>>Emi Lestari
>>
>>
>>
>>--------
>>
>>Public Sub Unclaimed()
>> Dim lPage As Long
>> If Range("o2").Value > 0 Then
>> Range("o3").Value = 1
>> For lPage = 1 To Range("o2").Value
>> ActiveSheet.Calculate
>> Range("a1:j69").PrintOut '
>> Range("o3").Value = lPage
>>
If MsgBox("Page : " & lPage + 1 & vbCrLf & "Print ?", vbYesNo + vbQuestion, "Cetak") = vbNo Then
>> Exit For
>> End If
>> Next lPage
>> End If
>>End Sub
>>
>>
-Emi
On Monday, March 24, 2014 12:19 PM, Jan Raisin <miss.jan.raisin@gmail.com> wrote:
Hai Emi,
Blok If itu dimulai dari script yang berbunyi
If bla bla bla
dan diakhiri sampai script yang berbunyi
End If
Jika diantara kedua baris tersebut ada script lain yang berbunyi
Jan.Explain = False
dan script yang lainnya.. maka script itu pun masih masuk ke dalam blok If tersebut, jadi yang dihapus adalah mulai baris pertama sampai baris terakhir.
Wassalam,
-Miss Jan Raisin-
Pada 24 Maret 2014 11.07, Emi <emilestariklcc@yahoo.com> menulis:
>
>Miss Jan,
>
>Saya udah hapus bagian itu
>
>
>
>Public Sub Unclaimed()
> Dim lPage As Long
> If Range("o2").Value > 0 Then
> Range("o3").Value = 1
> For lPage = 1 To Range("o2").Value
> ActiveSheet.Calculate
> Range("a1:j69").PrintOut '
> Range("o3").Value = lPage + 1
> 'If MsgBox("Page : " & lPage + 1 & vbCrLf & "Print ?", vbYesNo + vbQuestion, "Cetak") = vbNo Then
>
> Exit For
> 'End If
> Next lPage
> End If
>End Sub
>
>Hasilnya cuma print satu halaman sahaja.
>
>Yang saya inginkan ialah setelah halaman pertama habis diprint akan diikuti dgn data untuk halaman kedua dan seterusnya.
>Data untuk satu fomulir itu hanya bisa diisi 22 rekod sahaja. Setelah habis 22, rekor ke 23 s/d 44 ada di print sebagai halaman kedua dan seterusnya.
>
>Mohon bantuan lagi dari Miss Jan.
>
>Terima kasih.
>-Emi
>
>
>
>
>
>
>
>
>
>On Monday, March 24, 2014 11:50 AM, Jan Raisin <miss.jan.raisin@gmail.com> wrote:
>
>
>Hai Emi,
>
>
>coba hapus blok If MsgBox bla bla bla..
>
>
>Wassalam,
>
>
>-Miss Jan Raisin-
>
>
>
>Pada 24 Maret 2014 10.03, Emi <emilestariklcc@yahoo.com> menulis:
>
>
>>
>>Guru dan teman BeExcel,
>>
>>
>>Makro di bawah adalah dari Mr Kid.
>>Untuk mencetak satu halaman ke satu halaman.
>>
>>Bagaimana caranya kalau saya mau mencetak sekali gus tanpa perlu ditanya mau dicetak next page atau tidak.
>>
>>
>>
>>File excelnya dilampirkan.
>>
>>
>>
>>
>>
>>
>>Terima kasih.
>>
>>
>>Emi Lestari
>>
>>
>>
>>----
>>
>>Public Sub Unclaimed()
>> Dim lPage As Long
>> If Range("
>> Range("
>> For lPage = 1 To Range("
>> ActiveSheet.
>> Range("
>> Range("
>>
If MsgBox("
>> Exit For
>> End If
>> Next lPage
>> End If
>>End Sub
>>
>>
Sun Mar 23, 2014 9:38 pm (PDT) . Posted by:
"Jan Raisin"
Pak Triyoso,
coba ganti pastenya menjadi Paste:=xlPasteValuesAndNumberFormats
btw, scriptnya dari hasil rekam macro bukan?
jika benara, coba juga cari-cari di postingan lama tentang rekam macro dari
mas Aji Mumpung,
di sana pernah dijelaskan tentang cara rekam macro untuk mengcopy nilai
dari satu sheet ke sheet lainnya
dengan alamat relatif, jadi data berikutnya tidak akan menimpa data
sebelumnya.
Wassalam,
-Miss Jan Raisin-
Pada 23 Maret 2014 16.39, Triyoso Rustamaji <trustamaji@yahoo.com> menulis:
>
>
> assalamualaikum,
> mr. Kid, dan be exeller
> sudah seminggu lebih dikit juga mubeng muser cari dan baca.
> ternyata tidak masuk di otak. :(
> saya coba berlogika dan menyederhanakan langkah.
> dg bantuan kolom samping kanan, biar bisa di tangkap oleh si trasnspose.
> dg sedikit keberanian hasilnya masih diluar yg dharapkan.
> mohon di koreksi file terlampir.
> mohon maaf jika tidak berkenan.
> wassalamualaikum
> triyoso rustamaji
>
>
>
coba ganti pastenya menjadi Paste:=xlPasteValuesAndNumberFormats
btw, scriptnya dari hasil rekam macro bukan?
jika benara, coba juga cari-cari di postingan lama tentang rekam macro dari
mas Aji Mumpung,
di sana pernah dijelaskan tentang cara rekam macro untuk mengcopy nilai
dari satu sheet ke sheet lainnya
dengan alamat relatif, jadi data berikutnya tidak akan menimpa data
sebelumnya.
Wassalam,
-Miss Jan Raisin-
Pada 23 Maret 2014 16.39, Triyoso Rustamaji <trustamaji@yahoo.com> menulis:
>
>
> assalamualaikum,
> mr. Kid, dan be exeller
> sudah seminggu lebih dikit juga mubeng muser cari dan baca.
> ternyata tidak masuk di otak. :(
> saya coba berlogika dan menyederhanakan langkah.
> dg bantuan kolom samping kanan, biar bisa di tangkap oleh si trasnspose.
> dg sedikit keberanian hasilnya masih diluar yg dharapkan.
> mohon di koreksi file terlampir.
> mohon maaf jika tidak berkenan.
> wassalamualaikum
> triyoso rustamaji
>
>
>
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar