Adding Custom Paper Size Programmatically

There are times when we need to make a custom report size. Before you can create a custom size, you have to manually add a Printer Form Size (Control Panel -> Printer & Faxes -> File -> Server Properties). Then you can set the Page Setup in your report to use the custom printer form.

The hard part is, when you distribute the application to the client, you must also set the same Custom Form Size for their printer configuration. Of course you don't want to do it one by one manually! So, what you need is create a small procedure to detect whether the custom printer form is already exist. If not then add it.

Cut & paste the code below, then run "beautify" to make it readable

[Code]
Local hPrinter
Local cPrinterName, cPaperName
Local pPaperName, sPaperSize
Local nResult, nBufLen, nPaperWidth, nPaperHeight

Declare Long GetLastError in Kernel32
Declare Long ClosePrinter in WinSpool.Drv Long hPrinter
Declare Long OpenPrinter in WinSpool.Drv ;
String cPrinterName, Long @O_hPrinter, Long pDefault

Declare Long GetForm in WinSpool.drv as GetPrinterForm ;
Long hPrinter, String pFormName, ;
Long nLevelInfo, String @O_pFormInfo, ;
Long nBufSize, Long @O_nBufNeeded

Declare Long AddForm in WinSpool.drv as AddPrinterForm ;
Long hPrinter, Long nLevelInfo, String @pFormInfo

Declare Long LocalAlloc in Kernel32 Long uFlags, Long dwBytes
Declare Long LocalFree in Kernel32 Long hMem

cPrinterName = set( 'Printer', 2 ) && Get default Windows printer
hPrinter = 0

If (OpenPrinter( cPrinterName, @hPrinter, 0 ) != 0)
cPaperName = 'MyCustom - Half A4'
nBufLen = 32 && FORM_INFO_1_Size
cInfo = replicate( chr(0), 32 )
nResult = GetPrinterForm( hPrinter, cPaperName, 1, ;
@cInfo, nBufLen, @nBufLen )

If (nResult == 0) && Get printer form failed
nResult = GetLastError()

If (nResult == 1902) && ERROR_INVALID_FORM_NAME
** Custom Printer Form not exist, add the new one
nPaperWidth = 210000 / 2 && Paper size is in 1/1000 millimeters
nPaperHeight = 297000 / 2
sPaperSize = BinToC( nPaperWidth, '4rs' ) + BinToC( nPaperHeight, '4rs' )
pPaperName = LocalAlloc( 64, 32 )

If (pPaperName != 0)
sys( 2600, pPaperName, len( cPaperName ), cPaperName )
cInfo = BinToC( 0, '4rs' ) + BinToC( pPaperName, '4rs' ) + ;
sPaperSize + BinToC( 0, '4rs' ) + BinToC( 0, '4rs' ) + sPaperSize

If (AddPrinterForm( hPrinter, 1, cInfo ) != 0)
? 'Custom paper form (' + cPaperName + ') has been added! '
else
? 'Error:', GetLastError()
endif

LocalFree( pPaperName )
endif

else
If (nResult == 122) && Insufficient buffer
? 'Error: Custom Paper Form already exist!'
else
? 'Error: ', nResult
endif
endif
else
? 'Error: ', nResult
endif
ClosePrinter( hPrinter )
endif
[/Code]

ini aida dapat dari blog-nya OM Herman T,  gakngerti buat apa yang penting disimpen dulu sapa tau ntar bisa aida gunain.

http://hermantan.blogspot.com/2007/08/adding-custom-paper-size.html

BATIMUNG

Serupa dengan ratus, tetapi batimung digunakan untuk seluruh tubuh. Meski demikian, tentu saja organ intim dapat faedahnya.
Meski sederhana, adat masyarakat Banjar, Kalimantan Selatan ternyata tak beda jauh dengan sauna ala Spa di salon. Tak hanya untuk organ intim, pengasapan ini bahkan dilakukan untuk seluruh tubuh. Tak hanya calon mempelai wanita, calon mempelai pria juga harus menjalani tradisi ini. Ratus memang sudah menjadi bagian budaya Nusantara.
Ritual ini disebut Batimung, membuang keringat dari badan dengan cara diasapi serta ditambahkan bunga-bungaan dan ramuan alami. Untuk wanita, tentu saja mempengaruhi organ intimnya seperti pengasapan ratus. Cara konvensional masih menggunakan tungku. Calon mempelai harus menduduki tungku itu. Sementara cara yang agak modern, cukup dengan kompor sementara uap dialirkan melalui selang besar yang ditaruh di bawah tubuh.
Proses Batimung biasanya dilakukan pada malam hari, dilaksanakan oleh para wanita dari keluarga orang yang batimung. Biasanya calon pengantin pria hanya melakukan batimung selama tiga hari. Tetapi bagi calon pengantin wanita bisa sampai satu minggu bahkan ada yang hampir satu bulan.
Khasiat batimung sangat luar biasa. Banyak mempelai mengaku badannya segar dan pegal-pegal hilang. Selain itu bau wangi juga terus keluar bersama keringat kita. Satu kali batimung, biasanya aroma wangi itu akan habis dalam 2-3 hari.

Sesaji
Para mempelai yang usai ber-batimung merias diri dan mandi. Jika itu batimung terakhir sebelum akad nikah, mempelai wanita pun dirias. Perias kampung biasanya menyalakan dupa, menyediakan kelapa muda, ketan, dan beras kasih (beras kuning). Jika syarat itu tak ada, perias umumnya tak mau menjalankan tugasnya sebab takut terganggu seperti badan tiba-tiba lemah.
Sesaji yang sama juga harus diletakkan di bawah balai atau tempat pengantin bersanding. Selain itu, juga disediakan piduduk (sesaji) untuk dimakan bersama seperti nasi lemak dan inti, gula merah, kue-kue, kacang hijau goreng, pisang, ubi, bubur putih dan merah, rokok, minyak lekat baburih, dan air tepung tawar.
Penduduk biasanya disertakan saat upacara mandi pengantin. Kegiatan mandinya sendiri dilaksanakan di dalam pagar mayang, yakni bilik yang dibuat pada pelataran rumah yang dibatasi empat batang tebu berhias aneka kembang. Pada batang-batang tebu juga digantungkan beberapa kue. Saat turun ke pagar mayang, pengantin ditaburi beras kuning sambil membaca salawat, puji-pujian kepada Nabi Muhammad SAW.

Bahan untuk Batimung
1. Bedak atau wadak, yang sering disebut mangir wangi. Terbuat dari beras kencur ditambah dengan bahan alami lainnya yang mengandung wangi-wangian.
2. Bahan tambahan yakni: daun pudak/pandan wangi, temu giring, limau purut, kulit bawang merah, santan, kayu manis, menyan, daun sop, pucuk ganti, mang soe sebangsa akar, bunga akar. Biasanya juga ditambah dengan daun serai wangi, kunyit, pandan, temulawak, lengkuas, serta bunga mawar, kenanga, cempaka, dan melati. Semua bahan tersebut dipotong kecil-kecil lantas direbus dalam kuali tanah. Tutupnya dijaga agar asapnya tak keluar.

Proses Batimung:
1. Badan orang yang akan ditimung dibedaki dengan wadak sampai bersih dan harum sehingga segala kotoran yang melekat di tubuhnya hilang. Membedaki dilakukan oleh para wanita yang ditugaskan.
2. Setelah selesai diwadak, calon pengantin disuruh duduk di atas sebuah bangku yang rendah disebut dadampar, kemudian segala pakaian yang melekat disuruh menanggalkan diganti dengan selimut tebal beberapa lapis sampai ke atas kepala kecuali muka dan hidung.
3. Selesai diselimuti, barulah ramuan mendidih tadi diletakkan di bawah dadampar. Tutup kuali dibuka sehingga uap harum bisa keluar dan membasahi tubuh orang yang batimung. Pur

Kapan aku besar, Ayah ?

Suatu ketika, ada sebuah pohon yang rindang. Dibawahnya, tampak dua orang
yang sedang beristirahat. Rupanya, ada seorang pedagang bersama anaknya yang
berteduh disana. Tampaknya mereka kelelahan sehabis berdagang di kota.

Dengan menggelar sehelai tikar, duduklah mereka dibawah pohon yang besar
itu.
Angin semilir membuat sang pedagang mengantuk. Namun, tidak demikian dengan
anaknya yang masih belia. "Ayah, aku ingin bertanya..." terdengar suara yang
mengusik ambang sadar si pedagang.

"Kapan aku besar, Ayah? Kapan aku bisa kuat seperti Ayah, dan bisa membawa
dagangan kita ke kota?" "Sepertinya", lanjut sang bocah, "Aku tak akan bisa
besar.Tubuhku ramping seperti Ibu, berbeda dengan Ayah yang tegap dan
berbadan besar. Kupikir, aku tak akan sanggup memikul dagangan kita jika aku
tetap seperti ini."

Jari tangannya tampak mengores-gores sesuatu di atas tanah. Lalu, ia kembali
melanjutkan, "Bilakah aku bisa punya tubuh besar sepertimu, Ayah?"

Sang Ayah yang awalnya mengantuk, kini tampak siaga. Diambilnya sebuah
benih, di atas tanah yang sebelumnya di kais-kais oleh anaknya. Diangkatnya
benih itu dengan ujung jari telunjuk. Benda itu terlihat seperti kacang yang
kecil, dengan ukuran yang tak sebanding dengan tangan pedagang yang
besar-besar. Kemudian, ia pun mulai berbicara.

"Nak, jangan pernah malu dengan tubuhmu yang kecil. Pandanglah pohon besar
tempat kita berteduh ini. Tahukah kamu, batangnya yang kokoh ini, dulu
berasal dari benih yang sekecil ini. Dahan, ranting dan daunnya, juga
berasal dari benih yang Ayah pegang ini. Akar-akarnya yang tampak menonjol,
juga dari benih ini. Dan kalau kamu menggali tanah ini, ketahuilah,
sulur-sulur akarnya yang menerobos tanah, juga berasal dari tempat yang
sama."

Diperhatikannya wajah sang anak yang tampak tertegun. "Ketahuilah Nak, benih
ini menyimpan segalanya. Benih ini menyimpan batang yang kokoh, dahan yang
rindang, daun yang lebar, juga akar-akar yang kuat. Dan untuk menjadi
sebesar pohon ini, ia hanya membutuhkan angin, air, dan cahaya matahari yang
cukup. Namun jangan lupakan waktu yang membuatnya terus bertumbuh.

Pada mereka semualah benih ini berterima kasih, karena telah melatihnya
menjadi mahluk yang sabar."

"Suatu saat nanti, kamu akan besar Nak. Jangan pernah takut untuk berharap
menjadi besar, karena bisa jadi, itu hanya butuh ketekunan dan kesabaran."

Terlihat senyuman di wajah mereka. Lalu keduanya merebahkan diri, meluruskan
pandangan ke langit lepas, membayangkan berjuta harapan dan impian dalam
benak. Tak lama berselang, keduanya pun terlelap dalam tidur, melepaskan
lelah mereka setelah seharian bekerja.

Lima Menit Saja

Seorang ibu duduk di samping seorang pria di bangku dekat Taman-Main di West
Coast Park pada suatu minggu pagi yang indah cerah. "Tuh.., itu putraku yang
di situ," katanya, sambil menunjuk ke arah seorang anak kecil dalam T-shirt
merah yang sedang meluncur turun dipelorotan. Mata ibu itu berbinar, bangga.

"Wah, bagus sekali bocah itu," kata bapak di sebelahnya. "Lihat anak yang
sedang main ayunan di bandulan pakai T-shirt biru itu? Dia anakku,"
sambungnya, memperkenalkan.

Lalu, sambil melihat arloji, ia memanggil putranya. "Ayo Jack, gimana kalau
kita sekarang pulang?"

Jack, bocak kecil itu, setengah memelas, berkata, "Kalau lima menit lagi,
boleh ya, Yahhh? Sebentar lagi Ayah, boleh kan? Cuma tambah lima menit kok,
yaaa...?"

Pria itu mengangguk dan Jack meneruskan main ayunan untuk memuaskan hatinya.
Menit menit berlalu, sang ayah berdiri, memanggil anaknya lagi. "Ayo, ayo,
sudah waktunya berangkat?"

Lagi-lagi Jack memohon, "Ayah, lima menit lagilah. Cuma lima menit tok, ya?
Boleh ya, Yah?" pintanya sambil menggaruk-garuk kepalanya.

Pria itu bersenyum dan berkata, "OK-lah, iyalah..."

"Wah, bapak pasti seorang ayah yang sabar," ibu yang di sampingnya, dan
melihat adegan itu, tersenyum senang dengan sikap lelaki itu.

Pria itu membalas senyum, lalu berkata, "Putraku yang lebih tua, John, tahun
lalu terbunuh selagi bersepeda di dekat sini, oleh sopir yang mabuk. Tahu
tidak, aku tak pernah memberikan cukup waktu untuk bersama John. Sekarang
apa pun ingin kuberikan demi Jack, asal saja saya bisa bersamanya biar pun
hanya untuk lima menit lagi. Saya bernazar tidak akan mengulangi kesalahan
yang sama lagi terhadap Jack. Ia pikir, ia dapat lima menit ekstra tambahan
untuk berayun, untuk terus bermain. Padahal, sebenarnya, sayalah yang
memperoleh tambahan lima menit memandangi dia bermain, menikmati kebersamaan
bersama dia, menikmati tawa renyah-bahagianya...."

Hidup ini bukanlah suatu lomba. Hidup ialah masalah membuat prioritas.
Prioritas apa yang Anda miliki saat ini? Berikanlah pada seseorang yang kau
kasihi, lima menit saja dari waktumu, dan engkau pastilah tidak akan
menyesal selamanya. (Suara Merdeka)

Jangan Melihat Ke Belakang

Niccolo Paganini, seorang pemain biola yang terkenal di
abad 19, memainkan konser untuk para pemujanya yang memenuhi
ruangan. Dia bermain biola dengan diiringi orkestra penuh.

Tiba-tiba salah satu senar biolanya putus. Keringat dingin
mulai membasahi dahinya tapi dia meneruskan memainkan
lagunya. Kejadian yang sangat mengejutkan senar biolanya yang
lain pun putus satu persatu hanya meninggalkan satu senar, tetapi
dia tetap main. Ketika para penonton melihat dia hanya
memiliki satu senar dan tetap bermain, mereka berdiri dan
berteriak,"Hebat, hebat."

Setelah tepuk tangan riuh memujanya, Paganini menyuruh
mereka untuk duduk. Mereka menyadari tidak mungkin dia dapat
bermain dengan satu senar. Paganini memberi hormat pada para
penonton dan memberi isyarat pada dirigen orkestra untuk meneruskan
bagian akhir dari lagunya itu.

Dengan mata berbinar dia berteriak, "Peganini dengan satu
senar" Dia menaruh biolanya di dagunya dan memulai memainkan
bagian akhir dari lagunya tersebut dengan indahnya. Penonton
sangat terkejut dan kagum pada kejadian ini.

Renungan :

Hidup kita dipenuhi oleh persoalan, kekuatiran, kekecewaan
dan semua hal yang tidak baik. Secara jujur, kita seringkali
mencurahkan terlalu banyak waktu mengkonsentrasikan pada
senar kita yang putus dan segala sesuatu yang kita tidak dapat
ubah.

Apakah anda masih memikirkan senar-senar Anda yang putus
dalam hidup Anda? Apakah senar terakhir nadanya tidak indah
lagi?
Jika demikian, janganlah melihat ke belakang, majulah
terus, mainkan senar satu-satunya itu. Mainkanlah itu dengan
indahnya.

Jangan Melihat Ke Belakang

Niccolo Paganini, seorang pemain biola yang terkenal di
abad 19, memainkan konser untuk para pemujanya yang memenuhi
ruangan. Dia bermain biola dengan diiringi orkestra penuh.

Tiba-tiba salah satu senar biolanya putus. Keringat dingin
mulai membasahi dahinya tapi dia meneruskan memainkan
lagunya. Kejadian yang sangat mengejutkan senar biolanya yang
lain pun putus satu persatu hanya meninggalkan satu senar, tetapi
dia tetap main. Ketika para penonton melihat dia hanya
memiliki satu senar dan tetap bermain, mereka berdiri dan
berteriak,"Hebat, hebat."

Setelah tepuk tangan riuh memujanya, Paganini menyuruh
mereka untuk duduk. Mereka menyadari tidak mungkin dia dapat
bermain dengan satu senar. Paganini memberi hormat pada para
penonton dan memberi isyarat pada dirigen orkestra untuk meneruskan
bagian akhir dari lagunya itu.

Dengan mata berbinar dia berteriak, "Peganini dengan satu
senar" Dia menaruh biolanya di dagunya dan memulai memainkan
bagian akhir dari lagunya tersebut dengan indahnya. Penonton
sangat terkejut dan kagum pada kejadian ini.

Renungan :

Hidup kita dipenuhi oleh persoalan, kekuatiran, kekecewaan
dan semua hal yang tidak baik. Secara jujur, kita seringkali
mencurahkan terlalu banyak waktu mengkonsentrasikan pada
senar kita yang putus dan segala sesuatu yang kita tidak dapat
ubah.

Apakah anda masih memikirkan senar-senar Anda yang putus
dalam hidup Anda? Apakah senar terakhir nadanya tidak indah
lagi?
Jika demikian, janganlah melihat ke belakang, majulah
terus, mainkan senar satu-satunya itu. Mainkanlah itu dengan
indahnya.