Index: APPS/TRANSP/Transsmart/impl/EtiketService.cls.xml
===================================================================
diff -u -r70590 -r75040
--- APPS/TRANSP/Transsmart/impl/EtiketService.cls.xml	(.../EtiketService.cls.xml)	(revision 70590)
+++ APPS/TRANSP/Transsmart/impl/EtiketService.cls.xml	(.../EtiketService.cls.xml)	(revision 75040)
@@ -120,8 +120,10 @@
 	Set Computernaam = ##class(TECH.StringUtils).ToUpper(Computernaam)	
 	Do ..EtiketPrinter.PrintEtiketten(Etiketten,Computernaam,"TRANSSMART_ZPL")
 	#dim Rit As DOM.TRANSP.Rit = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefRit(Levering.GeefRitID())
-	if Rit.GeefTransporteur() = ##class(DOM.TRANSP.enu.Transporteur).VRD() {		
-		;Do ..PrintVRDDueoutEtiketten(..GeefShipmentInfoReference(Levering),Computernaam,Etiketten.Count())
+	if Rit.GeefTransporteur() = ##class(DOM.TRANSP.enu.Transporteur).VRD() {	
+		If ..ProjectSettingsAPI.VRDDueOutEtiketEnA4() ! ..ProjectSettingsAPI.DD1StockerenBijVRDIndienVroegerGeproduceerd(){
+			Do ..PrintVRDDueoutEtiketten(..GeefShipmentInfoReference(Levering),Computernaam,Etiketten.Count())
+		}
 	}
 ]]></Implementation>
 </Method>
@@ -136,8 +138,9 @@
 		#dim Maand = $$$UCase($Piece($ZD(PickupDate,2)," ",2))	
 		#dim BartenderPrinter as %String = ..PrintAPI.GeefLabelPrinter("TRANSP_DI1",ComputerNaam).GeefDevice()
 		Set DocsV1 = ##class(BL.PPS.TBX.DocsV1).%New()
-		do DocsV1.VRDDueOutEtiket(Dag,Maand,BartenderPrinter,Aantal, "3" _ $Extract(ShipmentReference,6,10))		
-
+		do DocsV1.VRDDueOutEtiket(Dag,Maand,BartenderPrinter,Aantal, "3" _ $Extract(ShipmentReference,6,10))
+		Set BartenderPrinter = ..PrintAPI.GeefLabelPrinter("TRANSP_VRDDUEOUTA4",ComputerNaam).GeefDevice()
+		do DocsV1.VRDDueOutA4Etiket(Dag,Maand,BartenderPrinter,Aantal, "3" _ $Extract(ShipmentReference,6,10))
 	} else {
 
 		Do ##class(vhLib.Logger).%New().Info("VRDDueOut Etiketten","VRD DueOut etiketten niet nodig voor shipment met reference " _ShipmentReference _ " met pickupdatum " _ $zd(PickupDate,2))