[Delphi] Affdrukken PRN file onder windows*

[MidnightMotion]

Ik ben op zoek naar een windows functie/programma/methode/manier om .PRN bestanden af te drukken. Elk programma in windows kan afdrukken naar een bestand maar ik kan verder nergens wat vinden over een universele manier om deze bestanden weer in de printerqueue te plaatsen

Ik heb de search en Google gebruikt maar kom hier alleen de oplossing bij tegen om via de Dos opdracht te printen en dit werkt dus niet altijd.

Ik heb geloof dat er wel iets van Windows functionaliteit bestaat maar ik ben de weg kwijt! Wie weet hier meer van?

[jvdmeer]

Gewoon vanuit de DOS-prompt

code:

COPY bestand.PRN LPT1:

code:

COPY bestand.PRN \\server\printshare

[Verwijderd]

jvdmeer schreef op 05 september 2003 @ 09:37:
Gewoon vanuit de DOS-prompt

code:

COPY bestand.PRN LPT1:

code:

COPY bestand.PRN \\server\printshare

Danwel voor de veiligheid /B er achter zetten.
(/B geeft aan dat het een binair bestand betreft)

[OZ-Gump]

Zoals jvdmeer al aangeeft kun je dat met copy doen. Als ik op groups.google.com zoek naar "re: print prn windows" vind ik meer dan 7500 draadjes. En de eerste daarvan is meteen raak. Daar staat zelfs uitgelegd hoe je het drag & drop enabled kunt maken via een leuk truukje.

Overigens vraag ik me enigszins af wat dit met P&W te maken heeft. Als je van mening bent dat dat wel zo is, dan moet je misschien even uitleggen hoe dan?

Edit:
Overigens is het op de Microsoft site ook niet heel moeilijk hier info over te vinden..... klikplaats

[ Voor 18% gewijzigd door OZ-Gump op 05-09-2003 09:43 ]

[whoami]

Dit heeft idd niets met P&W te maken.

P&W -> WOS

[MidnightMotion]

Denk dat wat meer info op zijn plaats is aangezien er hier duidelijk niet wordt gelezen en er niet is begrepen wat ik vraag....

Ik ben op zoek naar een manier om .PRN bestanden te printen ZONDER dos opdracht (Hiervan kan ik geen foutmeldingen afvangen en deze geeft mij ook geen bericht wanneer het wel gelukt is om de opdracht in de queue te plaatsen)

Aangezien ik dit wil realiseren voor een pakket dat in Delphi geprogrammeerd is zou het wel handig zijn als hiervoor eventueel een functie beschikbaar is in 1 vd libraries, ik kan er echter zelf nix over vinden en vandaar deze vraag.

Hoop dat het nu duidelijk is?

ps. Mag deze terug naar P&W?

[Viper®]

Delphi heeft toch zijn eigen code om printers aan te sturen, blader maar ff door de delphi help ofzo, zijn commando's voorhoor.

[Verwijderd]

MidnightMotion schreef op 05 september 2003 @ 12:28:
Denk dat wat meer info op zijn plaats is aangezien er hier duidelijk niet wordt gelezen en er niet is begrepen wat ik vraag....

Ik ben op zoek naar een manier om .PRN bestanden te printen ZONDER dos opdracht (Hiervan kan ik geen foutmeldingen afvangen en deze geeft mij ook geen bericht wanneer het wel gelukt is om de opdracht in de queue te plaatsen)

Aangezien ik dit wil realiseren voor een pakket dat in Delphi geprogrammeerd is zou het wel handig zijn als hiervoor eventueel een functie beschikbaar is in 1 vd libraries, ik kan er echter zelf nix over vinden en vandaar deze vraag.

Hoop dat het nu duidelijk is?

ps. Mag deze terug naar P&W?

aha, had dat gelijk gezegd

Misschien heb je hier wat aan:
Bron: http://www.swissdelphicenter.ch/torry/showcode.php?id=747

Gevonden via: http://www.google.nl/sear...=UTF-8&oe=UTF-8&hl=nl&lr=

Delphi:

uses 
  Printers, Winspool; 

function SpoolFile(const FileName, PrinterName: string): Integer; 
var 
  Buffer: record 
    JobInfo: record // ADDJOB_INFO_1 
      Path: PChar; 
      JobID: DWORD; 
    end; 
    PathBuffer: array[0..255] of Char; 
  end; 
  SizeNeeded: DWORD; 
  Handle: THandle; 
  PrtName: string; 
  ok: Boolean; 
begin 
  // Flush job to printer 
  PrtName := PrinterName; 
  if PrtName = '' then 
    PrtName := Printer.Printers[Printer.PrinterIndex]; // Default printer name 
  ok := False; 
  if OpenPrinter(PChar(PrtName), Handle, nil) then 
    if AddJob(Handle, 1, @Buffer, SizeOf(Buffer), SizeNeeded) then 
      if CopyFile(PChar(FileName), Buffer.JobInfo.Path, True) then 
        if ScheduleJob(Handle, Buffer.JobInfo.JobID) then 
          ok := True; 
  if not ok then Result := GetLastError 
  else  
    Result := 0; 
end; 


procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if SpoolFile('c:\test.prn', Printer.Printers[0]) = 0 then 
    ShowMessage('No error...'); 
end; 

[ Voor 4% gewijzigd door Verwijderd op 05-09-2003 13:21 ]

[SH007]

Windows Operated Systems -> Programming & Webscripting Op verzoek van de topicstarter

Zou je in het vervolg direct wat duidelijker willen zijn met je uitleg? Wij kunnen namelijk ook niet ruiken wat je precies wilt

[ Voor 36% gewijzigd door SH007 op 05-09-2003 13:25 ]

[MidnightMotion]

Verwijderd schreef op 05 September 2003 @ 13:18:
[...]


aha, had dat gelijk gezegd

Misschien heb je hier wat aan:
Bron: http://www.swissdelphicenter.ch/torry/showcode.php?id=747

Dank je!Volgens mij gaat dit wel werken, ik laat het nog wel even weten als het gelukt is!

[MidnightMotion]

SH007 schreef op 05 September 2003 @ 13:24:
Windows Operated Systems -> Programming & Webscripting Op verzoek van de topicstarter

Zou je in het vervolg direct wat duidelijker willen zijn met je uitleg? Wij kunnen namelijk ook niet ruiken wat je precies wilt

Dat ik niet vanuit dos wilde printen leek me vrij duidelijk geformuleerd (Bedankt mensen voor de nutteloze reakties)

Dat ik was vergeten erbij te vertellen dat ik het vanuit Delphi wilde doen was inderdaad minder slim Sorry!

[whoami]

MidnightMotion schreef op 05 September 2003 @ 13:34:
[...]


Dat ik niet vanuit dos wilde printen leek me vrij duidelijk geformuleerd (Bedankt mensen voor de nutteloze reakties)

Nee, dat was niet echt duidelijk.
Lees misschien ook eens de P&W Quickstart.

Verder hebben we ook nog altijd het edit-knopje.

[MidnightMotion]

whoami schreef op 05 september 2003 @ 13:36:
[...]

Nee, dat was niet echt duidelijk.
Lees misschien ook eens de P&W Quickstart.

Verder hebben we ook nog altijd het edit-knopje.

En gelukkig zit niet iedereen hier de hele dag nuttoze opmerkingen te plaatsen..
modbreak: hou het hier ff gezellig en ontopic ipv hier de ganse tijd zo gefrustreerd te zitten reageren

Als ik op 2 mensen reageer doe ik dat voor alle duidelijkheid in 2 posts, net als iedereen

modbreak: dat kan je ook doen in 1 bericht. Quoten en Copy/pasten.

En nu verder on-topic, of dit topic gaat > TC

[ Voor 26% gewijzigd door whoami op 05-09-2003 14:18 ]

[MidnightMotion]

_{Oke oke, ik kan er gewoon slecht tegen zoals sommige mensen reageren (zinloze opmerkingen ed), bovendien vind ik "hier de ganse tijd zo gefrustreerd te zitten reageren" wel zwaar overtrokken aangezien ik 1 keer mijn mening heb gegeven over een opmerking die me niet beviel maar goed, ontopic (graag!):}

[ Voor 42% gewijzigd door MidnightMotion op 05-09-2003 15:31 . Reden: Laat maar, opgelost met andere middelen ]