개발버젼 10.5.2 Build 7599
PDB를 사용하시는 것은 무료이며 ,, 소스 구입은 문의 하세요
010 - 3261 - 7224 ( 신성욱 )
1.DataObject가 없고 Dynamic 하게 생성된 것
window lw_pp
String ls_Error
BLOB lb_data
if Open(lw_pp, "w_print_preview", parent) > 0 then
// DataObject가 없고 Dynamic 하게 생성된 것
lw_pp.dynamic Function wf_setdwCreate ( dw_1.Describe("DataWindow.Syntax"), ls_Error )
lw_pp.dynamic Function wf_rowscopy( dw_1 )
lw_pp.dynamic Function wf_set_page()
lw_pp.dynamic Function wf_size( dw_1.Describe("DataWindow.Print.Orientation"), &
dw_1.Describe("DataWindow.Print.Preview.Zoom"), &
dw_1.Describe("DataWindow.Zoom") )
lw_pp.dynamic Function wf_SetPreview(true, true)
lw_pp.dynamic Function wf_show()
lw_pp.dynamic Function wf_GetMagin()
end if
2. DataObject 있는것
window lw_pp
String ls_Error
BLOB lb_data
if Open(lw_pp, "w_print_preview", parent) > 0 then
// DataObject 있는것
lw_pp.dynamic Function wf_setdw( dw_1.dataobject )
lw_pp.dynamic Function wf_rowscopy( dw_1 )
lw_pp.dynamic Function wf_set_page()
lw_pp.dynamic Function wf_size( dw_1.Describe("DataWindow.Print.Orientation"), &
dw_1.Describe("DataWindow.Print.Preview.Zoom"), &
dw_1.Describe("DataWindow.Zoom") )
lw_pp.dynamic Function wf_SetPreview(true, true)
lw_pp.dynamic Function wf_show()
lw_pp.dynamic Function wf_GetMagin()
end if
3. 모든 정보를 복사 할때
window lw_pp
String ls_Error
BLOB lb_data
if Open(lw_pp, "w_print_preview", parent) > 0 then
// 모든 정보를 복사 할때
dw_1.GetFullstate( lb_data)
lw_pp.dynamic Function wf_setdata( lb_data )
lw_pp.dynamic Function wf_set_page()
lw_pp.dynamic Function wf_size( dw_1.Describe("DataWindow.Print.Orientation"), &
dw_1.Describe("DataWindow.Print.Preview.Zoom"), &
dw_1.Describe("DataWindow.Zoom") )
lw_pp.dynamic Function wf_SetPreview(true, true)
lw_pp.dynamic Function wf_show()
lw_pp.dynamic Function wf_GetMagin()
end if
미리보기를 하면 아래와 같이 나옵니다.
prtview.pbd