Quantcast
Jump to content
Search In
  • More options...
Find results that contain...
Find results in...
    1. Welcome to GTAForums!   (84,718 visits to this link)

    2. News

    1. GTA Online

      1. Find Lobbies & Players
      2. Guides & Strategies
      3. Vehicles
      4. Content Creator
      5. Help & Support
    2. Crews

      1. Events
      2. Recruitment
    1. Grand Theft Auto Series

    2. GTA Next

    3. GTA V

      1. PC
      2. Guides & Strategies
      3. Help & Support
    4. GTA IV

      1. Episodes from Liberty City
      2. Multiplayer
      3. Guides & Strategies
      4. Help & Support
      5. GTA Mods
    5. GTA Chinatown Wars

    6. GTA Vice City Stories

    7. GTA Liberty City Stories

    8. GTA San Andreas

      1. Guides & Strategies
      2. Help & Support
      3. GTA Mods
    9. GTA Vice City

      1. Guides & Strategies
      2. Help & Support
      3. GTA Mods
    10. GTA III

      1. Guides & Strategies
      2. Help & Support
      3. GTA Mods
    11. Top Down Games

      1. GTA Advance
      2. GTA 2
      3. GTA
    12. Wiki

      1. Merchandising
    1. GTA Modding

      1. GTA V
      2. GTA IV
      3. GTA III, VC & SA
      4. Tutorials
    2. Mod Showroom

      1. Scripts & Plugins
      2. Maps
      3. Total Conversions
      4. Vehicles
      5. Textures
      6. Characters
      7. Tools
      8. Other
      9. Workshop
    3. Featured Mods

      1. DYOM
      2. OpenIV
      3. GTA: Underground
      4. GTA: Liberty City
      5. GTA: State of Liberty
    1. Red Dead Redemption 2

    2. Red Dead Redemption

    3. Rockstar Games

    1. Off-Topic

      1. General Chat
      2. Gaming
      3. Technology
      4. Programming
      5. Movies & TV
      6. Music
      7. Sports
      8. Vehicles
    2. Expression

      1. Graphics / Visual Arts
      2. GFX Requests & Tutorials
      3. Writers' Discussion
      4. Debates & Discussion
    1. Forum Support

    2. Site Suggestions

Sign in to follow this  
gtadani1

Delphi 7 - Print

Recommended Posts

gtadani1

Hi.

I'm working on a program on Delphi 7, but now I have one thing that I can't do. confused.gif

I have this components on my program:

Memo1

PageSetup1 -> Opens PageSetupDialog1

Print1 --------> Opens PrintDialog1 to select your printer and print your text in Memo1.

 

There is one part of my program's source (I think this helps).

 

 

procedure TForm1.PageSetup1Click(Sender: TObject);beginPageSetupDialog1.Execute;end;procedure TForm1.Print1Click(Sender: TObject);beginif PrintDialog1.Executethen Printer.BeginDoc;FontH := Printer.Canvas.TextHeight(Memo1.Lines[0]);Printer.Canvas.TextOut((Printer.PageWidth div 2)-(Printer.Canvas.TextWidth(Memo1.Lines[0]) div 2),0,Memo1.Lines[0]);for Loop := 1to Memo1.Lines.Count-1do Printer.Canvas.TextOut(0,Loop*FontH,Memo1.Lines[Loop]);Printer.EndDoc;end;

 

 

PageSetup, configures your document's page to print, but when I will print one document (like Adobe PDF), the text will print with no configuration (no borders, no page size,...) and my question is:

There's a way that I can print one document with PageSetup1Dialog's configuration?

 

Thanks. cool.gif

I hope you can help me.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

By using GTAForums.com, you agree to our Terms of Use and Privacy Policy.