*c32 %;slink § identification division. environment division. data division. working-storage section. 01 name pic x(50). 01 stat pic 9(5). procedure division. * Drucker auswählen call getprinterdialog using name stat. if stat not = 0 stop run. call print using 'fo "Arial" 8'. call print using 'b "bilder\saturn.bmp" 1000 1000 2000 -1'. call print using 'p 1000 3000 o."Saturn.bmp"'. call print using 'p 1000 3300 o."originales Seitenverhältnis"'. call print using 'b "bilder\saturn.bmp" 1000 4000 2500 2000'. call print using 'p 1000 6500 o."Saturn.bmp"'. call print using 'p 1000 6800 o."mit 2500 2000"'. call print using 'b "bilder\saturn.jpg" 7000 1000 1500 1000'. call print using 'p 7000 2500 o."Saturn.jpg"'. call print using 'p 7000 2800 o."mit 1500 1000"'. call print using 'b "bilder\saturn.jpg" 7000 4000 -1 2000'. call print using 'p 7000 6500 o."Saturn.bmp"'. call print using 'p 7000 6800 o."originales Seitenverhältnis"'. call prclose.