Aktuelle Zeit: 31.05.2020 00:24

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]




Ein neues Thema erstellen Auf das Thema antworten  [ 3 Beiträge ] 
Autor Nachricht
 Betreff des Beitrags: BILD auf PDF Drucken mittels "Strg+P"
BeitragVerfasst: 10.02.2020 13:45 
Offline
Benutzeravatar

Registriert: 15.11.2010 10:56
Hallo Leute,

möchte das Bild auf PDF drucken. Funzt ja, aber... das Bild ist nicht Seitenfüllend!

Es wird nur ein viertel im A4/A3 angezeigt!

Code:
; BILD auf PDF Drucken mittels "Strg+P"
EnableExplicit

UsePNGImageDecoder()

Enumeration
  #Strg_P_Print
EndEnumeration

Global Desk_Anzahl = ExamineDesktops() -1
Global Desktop_Reader_X = DesktopWidth(Desk_Anzahl)
Global Desktop_Reader_Y = DesktopHeight(Desk_Anzahl)

Global Img_Lander
Img_Lander = CatchImage(#PB_Any,?Img_Lander)

DataSection
  Img_Lander:
  IncludeBinary "D:\[Pure@API]\[STORE]\png\MarsLander.png"  ; <========= Bild
EndDataSection

ResizeImage(Img_Lander, Desktop_Reader_X, Desktop_Reader_Y,#PB_Image_Smooth)

Procedure Present_ScreenShot_Print()
  ; =====================================
  If PrintRequester()
    ; ---------------------------
    If StartPrinting(GetFilePart("D:\[Pure@API]\[STORE]\png\MarsLander.png", #PB_FileSystem_NoExtension))
      ; ==============================
      StartDrawing(PrinterOutput())
      ; ---------------------------
      DrawingMode(#PB_2DDrawing_Transparent)
      ; ---------------------------
      DrawImage(ImageID(Img_Lander),0,0,Desktop_Reader_X,Desktop_Reader_Y)
      ; ==============================
      StopDrawing()
      ; ==============================
      StopPrinting()
      ; ---------------------------
    EndIf
    ; ---------------------------
  EndIf
  ; =====================================
EndProcedure

Global Flags = #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget
OpenWindow(0, 100, 200, Desktop_Reader_X, Desktop_Reader_Y, "Image Global Check", Flags )
ImageGadget(1,0,0,Desktop_Reader_X, Desktop_Reader_Y,ImageID(Img_Lander))
AddKeyboardShortcut (0,#PB_Shortcut_Control|#PB_Shortcut_P, #Strg_P_Print)

Define Event, Quit
Repeat
 
  Event = WaitWindowEvent()
 
  If Event = #PB_Event_CloseWindow  ; If the user has pressed on the close button
    Quit = 1
  EndIf
  Select Event
    Case #PB_Event_Menu
      ;{  MENUE
      Select EventMenu()
        Case #Strg_P_Print
          Present_ScreenShot_Print()
      EndSelect
  EndSelect
 
Until Quit = 1 



Gruss ... Velindos!

_________________
Windows 7/8/8.1/10 (32/64-Bit) |Ubuntu 10.4 (64-Bit) |Purebasic 5.43 LTS (32/64-Bit)


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: BILD auf PDF Drucken mittels "Strg+P"
BeitragVerfasst: 10.02.2020 14:57 
Offline
Moderator
Benutzeravatar

Registriert: 15.06.2008 18:22
Wohnort: Dresden
du schreibst mit Desktopmaßen in die Druckausgabe. Das kann nicht passen.
Schau mal mit PrinterPageWidth() / PrinterPageHeight(), was du wirklich zur Verfügung hast.

_________________
Win10 x64 | PB 5.71 (x86 und x64)


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: BILD auf PDF Drucken mittels "Strg+P"
BeitragVerfasst: 10.02.2020 18:03 
Offline
Benutzeravatar

Registriert: 15.11.2010 10:56
Hallo Andesdaf,
Danke für den Tip und schon läuft´s!

Gruss ... Velindos!

_________________
Windows 7/8/8.1/10 (32/64-Bit) |Ubuntu 10.4 (64-Bit) |Purebasic 5.43 LTS (32/64-Bit)


Nach oben
 Profil  
Mit Zitat antworten  
Beiträge der letzten Zeit anzeigen:  Sortiere nach  
Ein neues Thema erstellen Auf das Thema antworten  [ 3 Beiträge ] 

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]


Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast


Sie dürfen keine neuen Themen in diesem Forum erstellen.
Sie dürfen keine Antworten zu Themen in diesem Forum erstellen.
Sie dürfen Ihre Beiträge in diesem Forum nicht ändern.
Sie dürfen Ihre Beiträge in diesem Forum nicht löschen.

Suche nach:
Gehe zu:  

 


Powered by phpBB © 2008 phpBB Group | Deutsche Übersetzung durch phpBB.de
subSilver+ theme by Canver Software, sponsor Sanal Modifiye