Certificate printing

[Rod]

There has been some discussion in another thread this is some simple starting code to create a certificate printer it could be embellished a lot.



   nomainwin
   WindowWidth = 800
   WindowHeight = 600
   open "Printable Form" for graphics as #form
   #form "trapclose [quit]"

   loadbmp "cert","cert.bmp"

   #form "down ; drawbmp cert 0 0"


   #form "font freestyle_script 24"
   #form "place 340 220 ;\";"Roderick Bird"
   #form "place 140 420 ;\";"22/10/2022"
   #form "place 540 420 ;\";"Deacon Brown"



   #form "flush"
   confirm "Send to printer?"; answer
   if answer then #form "print svga"
   wait
   close #form
   end



[quit]
   close #form
   end


cert.bmp (469.8 KB)

[deaconbrown]

Jun 15, 2024 3:58:06 GMT -5 Rod said:

There has been some discussion in another thread this is some simple starting code to create a certificate printer it could be embellished a lot.



   nomainwin
   WindowWidth = 800
   WindowHeight = 600
   open "Printable Form" for graphics as #form
   #form "trapclose [quit]"

   loadbmp "cert","cert.bmp"

   #form "down ; drawbmp cert 0 0"


   #form "font freestyle_script 24"
   #form "place 340 220 ;\";"Roderick Bird"
   #form "place 140 420 ;\";"22/10/2022"
   #form "place 540 420 ;\";"Deacon Brown"



   #form "flush"
   confirm "Send to printer?"; answer
   if answer then #form "print svga"
   wait
   close #form
   end



[quit]
   close #form
   end


View Attachment

[deaconbrown]

Thank you Rod, but I am getting an error with


loadbmp "cert","cert.bmp"

is there something I am missing?

[Rod]

For the code to run you need to save the .bas file to a directory of your choice and you need to download the attached .bmp and save it to the very same directory. Or put a bmp of your choice in the directory and refer to it when you load bmp. Then when you run the code it will find the .bmp.