Teman-teman,

 

saya menggunakan coding dibawah untuk melempar data ke dalam form excel
dan rencannya ingin langsung print namun saya tambahkan perintah
XlSheet1.PrintOut malah nggak cetak ke printer, padahal printer sudah
tersambung dan sudah terdetect.

 

    XlSheet1.Cells(26, 4) = Label34.Caption

    XlSheet1.Cells(26, 5) = Text21.Text

    XlSheet1.Cells(27, 1) = "# " & Text20.Text & " #"

    XlSheet1.Cells(29, 1) = Format(Now, "dd mmmm yyyy")

    

    XlSheet1.PrintOut

    XlSheet1.Application.SaveWorkspace

    XlSheet1.Application.Quit

    Set XlSheet1 = Nothing

    XlApp1.Application.Quit

    Set XlApp1 = Nothing

 

Mohon bantuannya kembali dan terima kasih sebelumnya.

 

Didi



[Non-text portions of this message have been removed]

Kirim email ke