DevMode

Deutschsprachiges Forum
1

Hallo,

ich setze per DevMode die Formatierung Hoch oder Querformat, Papiergröße, Höhe, Breite und übergebe das ganze der Funktion LlSetPrinterInPrinterFile. Leider wird diese Angabe beim Druck oder in der Preview Anzeige ignoriert. Die Anzahl der Kopien, Schacht, Drucker funktioniert wunderbar nur dmOrientation, dmPaperSize, dmPaperLength, dmPaperWidth wird scheinbar ignoriert.

tDevMode = GetPrinterDocumentProperties(sDruckerName_)
tDevMode.dmDefaultSource = iDruckerSchacht 'Index für Druckerschacht
tDevMode.dmCopies = 1

tDevMode.dmOrientation = DMORIENT_LANDSCAPE
tDevMode.dmPaperSize = 9
tDevMode.dmPaperLength = 2100
tDevMode.dmPaperWidth = 2970

lDC = CreateDC(“winspool.drv”, sDruckerName, vbNullString, tDevMode)

hJob = LlJobOpen(0)

lRet = LlSetPrinterInPrinterFile(hJob, lProjektyp, sPfad, -1, sDruckerName, tDevMode)

LlJobClose hJob

Kann mir jemand sagen wo hier der Fehler liegt? Hab ich was übersehen?
Vielen Dank schon mal!

Mfg
Markus Müller

2

Orientation: überschreibt LL, das stimmt. Klingt aber nach “By design”
:wink:

Papiergröße überschreibt LL m.W. nur, wenn Du im Projekt “Fixe Größe”
ausgewählt hast.

Paulchen

“Markus Müller” <m.mueller@blet…> wrote in message
news:144444292010182553@combit.net…

Hallo,

ich setze per DevMode die Formatierung Hoch oder Querformat,
Papiergröße, Höhe, Breite und übergebe das ganze der Funktion
LlSetPrinterInPrinterFile. Leider wird diese Angabe beim Druck oder
in der Preview Anzeige ignoriert. Die Anzahl der Kopien, Schacht,
Drucker funktioniert wunderbar nur dmOrientation, dmPaperSize,
dmPaperLength, dmPaperWidth wird scheinbar ignoriert.

tDevMode = GetPrinterDocumentProperties(sDruckerName_)
tDevMode.dmDefaultSource = iDruckerSchacht 'Index für Druckerschacht
tDevMode.dmCopies = 1

tDevMode.dmOrientation = DMORIENT_LANDSCAPE
tDevMode.dmPaperSize = 9
tDevMode.dmPaperLength = 2100
tDevMode.dmPaperWidth = 2970

lDC = CreateDC(“winspool.drv”, sDruckerName, vbNullString, tDevMode)

hJob = LlJobOpen(0)

lRet = LlSetPrinterInPrinterFile(hJob, lProjektyp, sPfad, -1,
sDruckerName, tDevMode)

LlJobClose hJob

Kann mir jemand sagen wo hier der Fehler liegt? Hab ich was
übersehen?
Vielen Dank schon mal!

Mfg
Markus Müller

3

Vielen Dank für die schnelle Antwort!

Jetzt hab ich aber noch mal eine dumme Frage!
Wo stelle ich die Fixe größe ein bzw. aus?

Gruß
Markus

Orientation: überschreibt LL, das stimmt. Klingt aber nach “By design”
:wink:

Papiergröße überschreibt LL m.W. nur, wenn Du im Projekt “Fixe Größe”
ausgewählt hast.

Paulchen

“Markus Müller” <m.mueller@blet…> wrote in message
news:144444292010182553@combit.net…

Hallo,

ich setze per DevMode die Formatierung Hoch oder Querformat,
Papiergröße, Höhe, Breite und übergebe das ganze der Funktion
LlSetPrinterInPrinterFile. Leider wird diese Angabe beim Druck oder
in der Preview Anzeige ignoriert. Die Anzahl der Kopien, Schacht,
Drucker funktioniert wunderbar nur dmOrientation, dmPaperSize,
dmPaperLength, dmPaperWidth wird scheinbar ignoriert.

tDevMode = GetPrinterDocumentProperties(sDruckerName_)
tDevMode.dmDefaultSource = iDruckerSchacht 'Index für Druckerschacht
tDevMode.dmCopies = 1

tDevMode.dmOrientation = DMORIENT_LANDSCAPE
tDevMode.dmPaperSize = 9
tDevMode.dmPaperLength = 2100
tDevMode.dmPaperWidth = 2970

lDC = CreateDC(“winspool.drv”, sDruckerName, vbNullString, tDevMode)

hJob = LlJobOpen(0)

lRet = LlSetPrinterInPrinterFile(hJob, lProjektyp, sPfad, -1,
sDruckerName, tDevMode)

LlJobClose hJob

Kann mir jemand sagen wo hier der Fehler liegt? Hab ich was
übersehen?
Vielen Dank schon mal!

Mfg
Markus Müller