II.                Printing

Sebuah aplikasi SIG sering digunakan sebagai dasar analisa bagi pemerintah daerah. Tidak jarang ada pihak-pihak lain yang ingin melihat pemetaan suatu kawasan tertentu meminta (membeli) hardcopy dari pemerintah daerah. Maka kebanyakan aplikasi SIG dapat melakukan printout sampai dengan ukuran kertas terbesar, yaitu A0.

Banyak cara untuk melakukan print-out peta. Hampi semua component tambahan dalam VB yang mengkhususkan fungsinya untuk print-out,seperti crystalreport atau activereport, dapat digunakan untuk printout peta.Karena peta yang tampil dilayar dapat diubah menjadi file (bmp,jpg, atau emf), dan kebanyakan dari component-component tadi menyediakan cara untuk men-attach-kan gambar dalam print-outnya.

Tapi jika tidak mempunyai component  tambahan tadi, kita dapat memanfaatkan object COM pada Ms PowerPoint. Kenapa powerpoint ? sebenarnya dapat juga kita buat dalam bentuk ms Word atau Excel. Hanya saja powerpoint mempunyai satu keunggulan, yaitu dapat mencetak sampai A0 dan dapat diconvert kedalam ukuran-ukuran yang lain tanpa merusak gambar karena gambarnya berupa vektor.

Powerpoint ini akan dimanfaatkan untuk membuat template pencetakan. Yang perlu diingat disini adalah urutan penambahan object dalam powerpoint. Disini Object yang pertama akan digunakan sebagai tempat untuk peta, sedang object yang kedua d igunakan untuk tempat legend. Object2 berikutnya bebas mau dipakai untuk apa, bisa untuk judul, keterangan-keterangan lain, gambar-gambar pendukung, atau frame-frame pemanis tampilan. Pada gambar 28 terlihat contoh template sederhana untuk pencetakan peta.

Gambar 28. Contoh template dalam Microsoft powerpoint

Pada bagian program, karena kita memanfaatkan fungsi-fungsi powerpoint, maka perlu ditambahkan reference microsoft Powerpoint seperti pada gambar 29.

Gambar 29. Menambahkan reference powerpoint

Dalam interface dapat ditambahkan sebuah tombol untuk print. Didalam event click tombol ini yang akan dilakukan adalah :

-         Menyimpan tampilan peta kedalam file gambar. Yang dipilih adalah tipe EMF karena berbentuk vektor. Dan menyimpan juga legend kedalam file gambar, sayangnya untuk legend hanya ada fungsi untuk menympan sebagai file BMP

   Map1.ExportMap moExportEMF, App.Path & "\peta.emf", 1

   legend1.ExportToBmp App.Path & "\legenda.bmp"

-         Memanggil aplikasi powerpoint, me-load file template yang kita siapkan tadi. Mengakses slide nomor satu.

    Dim pp As New PowerPoint.Application

    Dim pr As PowerPoint.Presentation

    Dim sl As PowerPoint.Slide

    pp.Visible = True

    pp.Activate

    Set pr = pp.Presentations.Open(App.Path & "\template1.ppt")

    Set sl = pr.Slides(1)

-         Mengambil lokasi object 1 untuk tempat peta, dan object 2 untuk tempat legend, kemudian pada lokasi-lokasi tadi diisikan gambar peta dan gambar legend.

     Dim sh As PowerPoint.Shape

     set sh = sl.Shapes(1)

     T = sh.Top + 2

     L = sh.Left + 2

        w = sh.Width - 4

        h = sh.Height - 4

       Set sh = sl.Shapes.AddPicture(App.Path & "\temp.emf", linktofile:=True, savewithdocument:=True, Left:=L, Top:=T, Width:=w, Height:=h)

        Set sh = sl.Shapes(2)

        T = sh.Top + 2

        L = sh.Left + 2

        Set sh = sl.Shapes.AddPicture(App.Path & "\legenda.bmp", linktofile:=True, savewithdocument:=True, Left:=L, Top:=T)

Jadi kode lengkapnya saat melakukan print adalah seperti dibawah, dengan peta pada gambar 30, akan menghasilkan print-out seperti gambar 31.

    Map1.ExportMap moExportEMF, App.Path & "\peta.emf", 1

    legend1.ExportToBmp App.Path & "\legenda.bmp"

          Dim pp As New PowerPoint.Application

    Dim pr As PowerPoint.Presentation

    Dim sl As PowerPoint.Slide

    pp.Visible = True

    pp.Activate

    Set pr = pp.Presentations.Open(App.Path & "\template1.ppt")

    Set sl = pr.Slides(1)

    Dim sh As PowerPoint.Shape

        Set sh = sl.Shapes(1)

        T = sh.Top + 2

        L = sh.Left + 2

        w = sh.Width - 4

        h = sh.Height - 4

       Set sh = sl.Shapes.AddPicture(App.Path & "\temp.emf", linktofile:=True, savewithdocument:=True, Left:=L, Top:=T, Width:=w, Height:=h)

    Set sh = sl.Shapes(2)

        T = sh.Top + 2

        L = sh.Left + 2

       Set sh = sl.Shapes.AddPicture(App.Path & "\legenda.bmp", linktofile:=True, savewithdocument:=True, Left:=L, Top:=T)

Gambar 30. Contoh tampilan untuk print-out

Gambar 31. Contoh hasil Printout