Udskrive på papir

Hej.

Tag et screendump og åben det i din billedbehandler.  Klip formen fra billedet og angiv i billedbehandleren 'Fit to page' - evt. i landscape.

M.v.h.  Jørn

ja, men det skal du være brugeren af programmet der skal kunne gøre det.. og helst bare ved at trykke på en knap...

Det er en anden betode, der måske umiddelbark virker besværlig, men jeg mener, at den faktisk sagtens kan bruges. Det, du har på formen, går jeg ud fra er billeder for det meste, måske labels? Hvis det er det, kan du gøre følgende:

Indexér alle dine labels. (Så de hedder fx label(0), label(1), label(2) osv.)
Indexér alle dine billeder. (Pic(0), Pic(1) osv.)

I knappen "print" skriver du:

for n = 0 to label.count-1
  printer.currentx = label(n).left
  printer.currenty = label(n).top
  printer.print label(n).caption
next n
for m = 0 to pic.count-1
  printer.paintpicture pic(m).picture, pic(m).left, pic(m).top
next m

printer.enddocument


- - - - -
Der er nok nogle enkelte tastefejl, men jeg har ikke lige VB til rådighed på dette sted.

Mvh. Rasmus